Задача pascal

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

Если точка совпадает с началом координат, то вывести 0.

Если точка не совпадает с началом координат, но лежит на оси ОХ или OY,

то вывести соответственно 1 или 2.

Если точка не лежит на координатных осях, вывести 3. (нужно чтобы прошла тест на taskbook)

Question

Информатика

Ксенья

20 мая, 06:51

Задача pascal

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

Если точка совпадает с началом координат, то вывести 0.

Если точка не совпадает с началом координат, но лежит на оси ОХ или OY,

то вывести соответственно 1 или 2.

Если точка не лежит на координатных осях, вывести 3. (нужно чтобы прошла тест на taskbook)

+5

Ответы (1)

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

Любава · Answer 1

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 проходит, а тот сайт не грузится у меня, инет плохой ...)