Question

(Решить через паскаль)Определить,попадает ли точка А с координатами x и y внутрь круга с радиусом R.Центр круга совпадает с началом координат

Answer 1

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 writeln('Точка не находится внутри круга');
end.

Пример:
x,y: 1 2
R: 3
Точка находится внутри круга