Ответы и объяснения

2013-11-24T20:00:04+04:00
Uses crt;
var n,pr:integer;
begin
readln(n);
pr:=1;
repeat
pr:=pr*(n mod 10);
n:=n div 10;
until n=0;
writeln(pr);
end.