Дано четырехзначное число найти произведение его цифр

Question

Дано четырехзначное число найти произведение его цифр

Answer 1

Какое 4-значное число?

Comments

var n:integer;
sum:integer;
begin
write('Введите число: '); readln(n);
sum:=0;
while n>0 do
begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln('Сумма = ', sum);
end.

---

мне надо с inputom

Answer 2

Алг Произведение цифр (арг цел Num, рез цел P) нач цел i, j, k, l   Num := abs(Num) | abs - абсолютная величина   i := div(Num, 1000) | i - первая цифра   | div - частное от деления с остатком   j := mod(div(Num, 100), 10) | j - вторая цифра   | mod - остаток от деления с остатком    k := mod(div(Num, 10), 10)  | k - третья цифра   l := mod(Num, 10) | l - четвертая цифра   P := i * j * k * l; окончание. Вот так