R(sqr(c)+c, d) - по тому что ты в начале указал что счетчик процедуры будет интеджером, а если вывести из коренья то может получится и дробное число...
Задание № https://yadi.sk/d/NE07UfXs3UHvU5
2017 = <span>11111100001 2
2017 = 3741 8
2017 = </span><span>7E1 16</span>
Блок-схема - в прилагаемом файле.
Программа:
var n,r,a,b,k,x,y,i:integer;
begin
readln(n,r,a,b);
k:=0;
for i:=1 to n do
begin
readln(x,y);
if sqr(x-a)+sqr(y-b)<r*r then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
3 4 1 1
2 2
-2 -3
0 0
k = 2