Question

Задается положительное целое число N. Нужно вывести произведение его цифр.

Answer 1

var s,n:integer;
begin 
Readln(n); 
s:=1; 
repeat   
 s:=s*(n mod 10);   
n:=n div 10; 
until n=0; 
Writeln(s); 
Readln;
end.