Записать число в развернутой форме: 3, 16593

1)Устройства ввода - это устройства, которые переводят информацию с языка человека на машинный язык.
Клавиатура – клавишное устройство для ввода числовой и текстовой информации.
Координатные устройства ввода - манипуляторы для управления работой курсора (Мышь, Трекбол, Тачпад, Джойстик).
Сканер – устройство ввода и преобразования в цифровую форму изображений и текстов. Существуют планшетные и ручные сканеры.
Цифровые камеры  – формируют любые изображения сразу в компьютерном формате.
Сенсорные устройства ввода
2)Устройства вывода  - это устройства, которые переводят информацию с машинного языка в формы, доступные для человеческого восприятия.
Монитор (дисплей) - универсальное устройство визуального отображения всех видов информации.
Принтер – устройство для вывода информации в виде печатных копий текста или графики.
Плоттер (графопостроитель) – устройство, которое чертит графики, рисунки и диаграммы под управлением компьютера.
Акустические колонки и наушники – устройство для вывода звуковой информации
3)виды памяти
-внутренняя память
Оперативная память (ОП) предназначена для  временного хранения выполняемых программ и данных, обрабатываемых этими программами. Это энергозависимая память. Физически реализуется в модулях ОЗУ (оперативных запоминающих устройствах) различного типа. При выключении электропитания вся информация в оперативной памяти исчезает.
Кеш память - очень быстрая память малого объема служит для увеличения производительности компьютера, согласования работы устройств различной скорости.
Специальная - постоянная, Fiash, видеопамять и тд.
---Внешняя память - это память, предназначенная для длительного хранения программ и данных. Целостность содержимого ВЗУ не зависит от того, включен или выключен компьютер
Дисковод (накопитель), Носитель информации (носитель записи).

Program dfg;vars:real;o,k:integer;f,w,r,e:array[1..10] of integer;i,t,x,g,h,j,u,y,l,d:integer;beginh:=0;d:=0;o:=1;k:=1;write('массив1= ');writeln();         for x:=1 to 4 do                      begin              for i:=1 to 4 do                beginr[i]:=random(10);write(r[i]);e[i]:=o*r[i];o:=o*10;u:=0+e[i];

if r[i]=0 thenh:= h+1;
if r[i]=1 thend:=d+1;                   end;writeln();                  end;writeln();                            writeln();write('массив2=');writeln();randomize;                  for x:=1 to 4 do                      begin              for i:=1 to 4 do                beginr[i]:=random(10);write(r[i]);e[i]:=o*r[i];o:=o*10;u:=0+e[i];

if r[i]=0 thenh:= h+1;
if r[i]=1 thend:=d+1;                   end;writeln();                  end;writeln();writeln('нули = ',h);writeln('единицы = ',d);

end.