'); if (x=0) and (y=0)…»'>
44

Задача pascal Даны целочисленные координаты точки на плоскости. Если точка…

05 февраля 2023

Задача pascal Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси ОХ или OY, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, вывести 3. (нужно чтобы прошла тест на taskbook)

категория: информатика

84

Var x, y: integer; begin readln (x , y); write ('> '); if (x=0) and (y=0) then writeln (0); if (x <> 0) and (y=0) then writeln (1); if (x=0) and (y <> 0) then writeln (2); if (x <> 0) and (y <> 0) then writeln (3); end. Проверку на Pascal ABC проходит, а тот сайт не грузится у меня, инет плохой…)

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...