Нужно написать программу на Pascal Найти произведение цифр во введённом числе

Question

Allod Мастер (1335), на голосовании 15 лет назад

Answer 1

число перевести в строку, строку разобрать на символы, символы перевести в числа, числа перемножить :)

Answer 2

Calmer Знаток (457) 15 лет назад

вопрос нормально задай или пример приведи

Вводим 523
Вывод 30
Действие 5х2х3

Answer 3

var s:real;
a,d:integer;
begin
read(a);
s:=1;
repeat
d:= a mod 10;
s:=s*d;
a:= round(a/10-0.5);
utile a>1;
write(s);
end.

Answer 4

Андрей Кузьменко Мастер (1206) 15 лет назад

Зависит от числа введенного

Answer 5

var a,b,s:integer;
begin
s:=1;
read(a)
while a<>0 do
begin
b:=a mod 10;
a:=a div 10;
s:=s*b;
end;
write(s);
end;