program tupoyGumanitarit;
var i, j, a, r, sum: longint;
begin
readln(r);
a:=0;
for i:=1 to r do
for j:=0 to r do
if sqr(i) + sqr(j) <= sqr(r) then inc(a);
writeln (a*4+1) ;
end.
Клетки там не при чём
Вот как надо
program tupoyGumanitarit;
var i, j, a, r, sum: longint;
begin
readln(r);
a:=0;
for i:=1 to r do
for j:=0 to r do
if sqr(i) + sqr(j) <= sqr(r) then inc(a);
writeln (a*4+1) ;
end.
Клетки там не при чём
Вот как надо