Версия для печати темы

Автор: minkod 20.10.2005 23:20

Мне нужно написать программу которая будет считать произведение цифр заданного числа. Как это сделать.

Автор: virt 20.10.2005 23:31

s := 1;
while n > 0 do
   begin
      s := s * (n mod 10);
      n := n div 10
   end;
writeln(s);