Да,нужно .Чертишь,считаешь,и записываешь
Ну этот кусок может выглядеть так:
---------------
t:= A;
A:=B;
B:=C;
C:=t;
---------------
Var a: real;
i, k: integer;
begin
readln(k);
for i := 1 to k do
a := sqrt(2 + a);
writeln(a);
<span>end.
Вот так, насколько я понимаю: вычисляем с конца корень из 2, потом к нему прибавляем 2 и опять вычисляем корень... И опять х) В общем, должно получится</span>
2^i=128
i=7 бит/симв
11,5*1024=11776 байт
11776*8=94208 бит
94208/7=13458 символа