На паскале:
program zz;
var a,b,i,n: integer;
begin
n:=5;
write('A='); readln(A);
write('B='); readln(B);
for i:=1 to n do
begin
A:=A+1;
B:=B*2;
end;
writeln('A=', A);
writeln('B=', B);
end.
32/8*60*60*24=345600 килобайт
<span>переводим в мегабайты получается 337,5 мб</span>
Для символа в алфавите из 32 символов (32=2^5) требуется 5 бит, поэтому весь текст займет 5*49152 = 245760 бит. Или, поделив на 1024, получим 240 Кбит. В байте 8 бит, поэтому еще надо поделить результат на 8. Окончательно получим 30 Кбайт.
10000+4000+600+50..........