К растровой (точечной), в которой изображение строится из точек, называемых пикселями (pixel - от англ. PICture ELement)
Правка Таблица и там убрать линейку в конт меню
Блок-схема - в прилагаемом файле.
Программа:
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
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>