<span><span><span><span>
Вроде бы такое решение </span></span></span></span>
Var i,k,s:integer;
begin
while k<15 do
begin
i:=i+1;
if i mod 5=3 then
begin
if k<14 then write (i,'^2 + ')
else write (i,'^2 = ');
s:=s+sqr(i);
k:=k+1;
end;
end;
writeln (s);
end.
N = 256
N = 2 ** i
i = 8
k = 40 * 32 * 48 = 61440 символов
I = k * i
I = 61440 * 8 = 491520 бит = 61440 Байт = 60 Кбайт
Ответ: 60 Кбайт
а)<em>8</em>"<u>бит</u>"
б)<em>0.026001</em>"<u>Кбайт</u>"
в)<em>1024</em>"<u>Кбайт</u>"-<em>1048576</em>"<u>байт</u>"-<em>8388608</em>"<u>бит</u>"
г)<em>1.5</em>"<u>Кбайт</u>"-<em>1536</em>"<u>бит</u>"