Запись алгоритма в виде блок-схемы более наглядная и компактная.
3*16*32 = 2^9 * 3 = 512*3 = 1536 байт
1536/1024 = 1.5 Кбайт
Var
b:array[1..100001] of integer;
var a,c,i:integer;
begin
c:=0;
write('десятичное число: ');
readln(a);
while a<>0 do
begin
if a mod 2 = 0 then
begin
a:=a div 2;
c:=c+1;
b[c]:=0;
end;
if a mod 2 <>0 then
begin
a:=a div 2;
c:=c+1;
b[c]:=1;
end;
end;
write('двоичное число: ');
for i:=c downto 1 do
write(b[i])
end.
жесткий диск - хранение данных
ноутбук - серфинг по сети, хранение данных, электронная почта и т.п.
роутер - передача данных
жесткий диск - хранение данных
телефон - передача данных, общение
колонки (динамики) - прослушивание звуковых данных
монитор - получение визуальных данных
клавиатура, сканер, мышь, веб-камера - ввод данных
принтер - печать данных
и т.п.