Var
n:integer;
begin
n:=20;
while n<=320 do begin
Write(n,' ');
n:=2*n
end
end.
Результат работы
20 40 80 160 320
Делим на тройки чисел с конца.
110 010 011 010 011 тогда получаем:
6 2 3 2 3
Значит
62323 (8)
Ввод: микрофон, вебкамера, тачпад, сканер, клавиатура
Вывод: монитор, принтер, колонки, плоттер
Хранение: юсб-накопитель, жесткий диск
1024=1кбайт
256мбайт=256000кбайт