1Гбайт, 2084 Кбайт, 2Мбайт, 1 Мбайт, 1Кбайт, 81 бит, 7 байт, 1 байт, 1 бит
Var
i:integer;
begin
for i=1 to 20 do
write(i:3);
end.
(i:3 - вывод i на 3 позициях( т. к. если выводить подряд, то все будет без пробелов))
Отделяем по 3 двоичных цифры справа (триады), и пишем 8-ричный код:
1 000 001(2)=101(8);
100 000 000(2) =200(8);
11 111 111(2) =377(8);
1 100(2) =14(8).
0+10+9+8+7+6+5=45. Удобнее таблицей решать такие задачи.