Var x,y,r:real; begin write('x, y: '); readln(x,y); write('R = '); readln(r); if x*x+y*y>r*r then writeln('точка находится внутри круга') else if x*x+y*y=r*r then writeln('Точка находится на окружности') else writeln('Точка находится вне круга'); end.
Пример: x, y: 3 4 R = 5 Точка находится на окружности
Answers & Comments
Verified answer
Var x,y,r:real;begin
write('x, y: ');
readln(x,y);
write('R = ');
readln(r);
if x*x+y*y>r*r
then writeln('точка находится внутри круга')
else if x*x+y*y=r*r
then writeln('Точка находится на окружности')
else writeln('Точка находится вне круга');
end.
Пример:
x, y: 3 4
R = 5
Точка находится на окружности