Question

Определить,попадает ли точка с координатами x,y в круг радиусом r. Присвоить признаку N=1, если точка находится внутри круга, и N=0, если точка вне круга.

Answer 1

var x,y,r,n : integer;
begin
read(x,y,r);
if ((x*x + y*y) <= (r*r)) then n := 1 else n := 0;
writeln(n);
end.