Бесконечная клеточная страница состоит из квадратных клеток. сторона каждой клетки равна k единиц. радиус круга равен r единиц. нужно определить, сколько клеток входит в круг (и те, которые входят полностью в круг, и те, которые пересекаются окружностью). k и r - натуральные вход 1 5 выход 88 вход 3 7 выход 32 вход 4 5 выход 12 написать желательно на delphi 7, но и на pascal abc сойдёт.

160

323

Посмотреть ответы 2

Ответы на вопрос:

Васиози

Информатика

4,7(94 оценок)

Var i,k,p,r,m,n: integer; begin write('размер клетки k = '); readln(k); write('радиус круга r = '); readln(r); n: =r div k; if ((r mod k)> 0) then inc(n); m: =0; p: =n-1; for i: =1 to n-1 do begin if ceil(sqrt(r*r-k*i*k*i))< =p*k then begin p: =p-1; m: =m+n-i; end; end; m: =4*n*n-4*m; writeln(m); end.размер клетки k = 1 радиус круга r = 5 88размер клетки k = 3 радиус круга r = 7 32размер клетки k = 4 радиус круга r = 5 12