Ответ:
примерно так только я не знаю принцип работы
По формуле или
Глубина цвета бит
Объем памяти = 128 * 128 пикселей * 5.0 бит = 81920.0 бит
81920.0 бит = 10240.0 байт = 10.0 Кбайт = 0.009765625 Мбайт = 9.5367431640625e-06 Гбайт = 9.313225746154785e-09 Tбайт
81920.0 бит = 80.0 Кбит = 0.078125 Мбит = 7.62939453125e-05 Гбит = 7.450580596923828e-08 Tбит
Var n,sum,pr,a:integer;
begin
readln(n);
sum:=0
pr:=1;
while n<>0 do
begin
a:=n mod 10;
sum:=sum+a;
pr:=pr*a;
n:=n div 10;
end;
writeln(sum,' ',pr);
end.
Как это не понять можно вот объясни?