• Введите с клавиатуры целочисленные координаты точки на плоскости (x,y). Выведите '0'
    , если точка совпадает с началом координат, '1', если точка лежит на координатных осях, и '2', если точка не лежит на координатных осях.
    ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Ответы 1

  • var x,y:real;beginwriteln ('Введите координаты точки (x,y)');readln (x,y);if (x=0) and (y=0) then writeln ('0')else if (x=0) or (y=0) then writeln ('1')else writeln ('2');end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years