Question

Задано целое неотрицательное число. Найти произведение цифр.
Примеры: 949
Выходные данные: 324

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,p):=(ReadInteger,1);
  while n>0 do (p,n):=(p*(n mod 10),n div 10);
  p.Println
end.