uses crt;
var
i:integer;
begin
clrscr;
for i:=1 to 25 do writeln ('информатика');
readkey;
end.
512Кб = 524288 байт = 4194304 бит
l=q*t
q=l:t
q=6*256:3 = 512 байт/с или же 4 096 бит/с
Трассировка алгоритма:
a=256 b =0
a=128 b=129
a=64 b = 194
a=32 b = 227
a=16 b=244
a=8 b=253
a=4 b =258
a=2 b=261
a=1 b=263 ответ: 263