Ну, тут нужно выбрать один ответ?
Если так, то, скорее всего - процессор
var
s : integer;
begin
for var i := 0 to 1000 do if i mod 2 > 0 then s += i;
writeln('s=', s);
end.
var
n : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do write(i, ' ');
end.
Объяснение:
Ну вот смотри:
1) Абсолютные ссылки имеют вид $A$1 //Закрепляется столбец и строку.
2) Относительные ссылки имеют вид A1 //Стандартный тип ссылок, изменяются адреса при перемещение в формулах
3) Смешанные ссылки имеют вид A$1 ИЛИ $1A //Они закрепляют строку, либо столбец.
В итоге у тебя:
- A3 - Имеет абсолютную ссылку;
- B3 - Относительную;
- C1 И C2 - Смешанную ссылку.
Var i,k,p,r,m,n: integer;
<span>begin
</span><span> write('размер клетки k = '); readln(k);
</span><span> write('радиус круга r = '); readln(r);
</span><span> n:=r div k;
</span><span> if ((r mod k)>0) then inc(n);
</span><span> m:=0; p:=n-1;
</span><span> for i:=1 to n-1 do
</span><span> begin
</span><span> if Ceil(sqrt(r*r-k*i*k*i))<=p*k then
</span><span> begin
</span><span> p:=p-1;
</span><span> m:=m+n-i;
</span><span> end;
</span><span> end;
</span><span> m:=4*n*n-4*m;
</span><span> writeln(m);
</span><span>end.
</span>размер клетки k = 1
<span>радиус круга r = 5
</span><span>88
</span>размер клетки k = 3
<span>радиус круга r = 7
</span><span>32
</span>размер клетки k = 4
<span>радиус круга r = 5
</span><span>12
</span>