Question

С клавиатуры вводятся координатные точки. Верно ли, что она лежит на какой-нибудь координатной оси?

Answer 1

Var x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if (x = 0)or(y = 0) then Write('Верно')
else Write('Не верно')
End.