28.  Вычислить количество точек с целочисленными координатами, находящихся в круге радиуса R (R >0).

Решение

program lab28;

var i,j,n,r:integer;

begin

writeln('Okrujnost is nachala koordinat!');

writeln('vvedite radius R: ');

readln(r);

n:=0;

for i:=-r to r do

    for j:=-r to r do

    begin

         if sqr(i)+sqr(j)<sqr(r) then

         begin

              n:=n+1;

              writeln(n,') ',i,' ',j);

         end;

    end;

writeln('v kruge ',n,' tochek');

end.