Определить, попадает ли точка с координатами x0 , y0 в круг радиусом r . присвоить признаку n=1 , если точка находится внутри круга, и n=0 , если точка вне круга. паскаль
//PascalABC.NET var x,y,r:real; begin write('Введите координаты точки и радиус круга: '); readln(x,y,r); if sqr(x)+sqr(y) <= sqr(r) then writeln('Точка попадает в круг.') else writeln('Точка не попадает в круг.'); end.
var
x,y,r:real;
begin
write('Введите координаты точки и радиус круга: ');
readln(x,y,r);
if sqr(x)+sqr(y) <= sqr(r) then
writeln('Точка попадает в круг.')
else
writeln('Точка не попадает в круг.');
end.