Задача на подсчитывание квадратов Опции

[Nfsmaster]

Подсчитать кол-во квадратов со стороной единица в круге с центром в начале координат и радиусом r (любой). Сделайте пожалуйста на уровне 9 класса.

[Гость]

Извини, а не можешь написать всю программу после begin до end?

[Lapp]

Извини, а не можешь написать всю программу после begin до end?

Кто сказал, что не могу?

Код

  Write('Radius r= ');ReadLn(r);
  s:=0;
  for i:=1 to Trunc(r) do s:=s+Trunc(Sqrt(r*r-i*i));
  s:=s*4;
  WriteLn('Total squares: ',s);

Вот тебе от begin и до end..