Определить,попадает ли точка с координатами x,y в круг радиусом r. Присвоить признаку N=1, если точка находится внутри круга, и N=0, если точка вне круга.
Var x,y,r,n : integer; begin read(x,y,r); if ((x*x + y*y) <= (r*r)) then n := 1 else n := 0;<br>writeln(n); end.