Даны координаты точки ** плоскости. Известно, что окружность радиусом Р центром совпадает...

Question

Даны координаты точки на плоскости. Известно, что окружность радиусом Р центром совпадает с началом координат. Определить, лежит ли данная точка на окружности или же вне её.

Answer 1

Var x,y,p,r:real;
begin
writeln('x, y:');
readln(x,y);
r:=x*x+y*y;
write('p = '); readln(p);
if r=p*p
  then writeln('Точка лежит на окружности')
  else if r=p*p then write('Точка лежит вне окружности');
end.

Пример:
x, y:
3 4
p = 5
Точка лежит на окружности