<span>const Ei=2.71
</span>i:integer;<span>
S0, S1, S2, S3: real;
</span>begin
S0:=0;
<span>for i := 1 to 30 do
begin
S0 := </span>S0<span>+</span>exp( 2 * ln(cos(i)))<span>;
end;
</span>S1:=0;
for i := 1 to 10 do
begin
S1 := S1*sin(exp( 2 * ln(i)));
end;
S2:=<span>exp( S0 * ln(Ei));
</span>S3:=exp( S1 * ln(Ei));
writeln('S= ',S2+S3);
end.
10*32*48*2=30720 байт
Ответ: 30720/1024=30Кбайт, вариант 3
1.При первом выполнении тела цикла i=1
2. 9 раз
3. Цикл с предусловием
4. var n: integer;
for n:=1 to 26 do
writeln(sqr(n));
5. for i:=34 downto 3 do
writeln(i)