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

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

если массив состоит из 10 элементов то код программы:

 

const

  n=10;  

var

  a: array[1..n] of integer;

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;