Задача pascal Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси ОХ или OY, то вывести соответственно 1 или 2. ...
Задача pascal
Даны целочисленные координаты точки на плоскости.
Если точка совпадает с началом координат, то вывести 0.
Если точка не совпадает с началом координат, но лежит на оси ОХ или OY,
то вывести соответственно 1 или 2.
Если точка не лежит на координатных осях, вывести 3. (нужно чтобы прошла тест на taskbook)
Гость
Ответ(ы) на вопрос:
Гость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 проходит, а тот сайт не грузится у меня, инет плохой..)
Не нашли ответ?
Похожие вопросы