Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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
Точка лежит на окружности