Введите с клавиатуры целочисленные координаты точки на плоскости (x,y). Выведите '0', если точка совпадает с началом координат, '1', если точка лежит на координатных осях, и '2', если точка не лежит на координатных осях.ПОМОГИТ...
Введите с клавиатуры целочисленные координаты точки на плоскости (x,y). Выведите '0'
, если точка совпадает с началом координат, '1', если точка лежит на координатных осях, и '2', если точка не лежит на координатных осях.
ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Гость
Ответ(ы) на вопрос:
Гостьvar
x,y:real;
begin
writeln ('Введите координаты точки (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.
Не нашли ответ?
Похожие вопросы