Решение Вашей задачи находится в прикреплённом файле. Если у Вас возникнут вопросы по коду, напишите мне и я Вам с удовольствием помогу.
Var a,a1,a2,a3,a4:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифра тысяч - ',a1);
writeln('цифра сотен - ',a2);
writeln('цифра десятков - ',a3);
writeln('цифра единиц - ',a4);
end.
Пример:
a = 1234
цифра тысяч - 1
цифра сотен - 2
цифра десятков - 3
цифра единиц - 4
1. 16*32*25*2=25600 байт/1024=25 Кбайт
2.16*32*20*2=<span><span>20480 байт=20 Кбайт
3.32*32*30*1=</span></span><span><span>30720 байт=30 Кбайт</span></span>