димон4ик

задание : Определить, попадает ли точка (х, у) в круг радиуса R с центром в точке (а; b). Вывести признак N = 1, если точка находится в круге и N = 0 – в противном случае.

var x,y, a,b, R : integer; {все числа целые. если допустимы дробные,
тип поменять на real или на double}
N : integer;
begin
WriteLn('Vvedite a,b, R, x,y');
Readln(a,b, R, x,y);

if sqrt(sqr(x-a) + sqr(y-b) ) <= R
then N := 1
else N := 0;

WriteLn(' N = ', N);
ReadLn;
end.

Léon

димон4ик, все правильно работает.