8775*8=70200 бит
2 в 6 степени = 64, значит 1 символ = 6 битам.
70200/6 = 11700 символов
11700/6 станиц/30 строк = 65 символов.
Var
n,i : Integer;
Begin
Readln(n);
i:=1;
While (i+1)*i div 2<=n do Inc(i);
Writeln(i);
end.
Dim b(45)
for i=1 to 45
print "b(";i;")= ";
input b(i)
next i
for i=1 to 45
if b(i)=3.5 then
s=s+1
end if
next i
print "kolichestvo: "; s
1) 1200+ 990+25000+4500=31690
ответ: 31690