Дано натуральное число n. Найти произведение его цифр (Pascal).

Программа последовательно выделяет последнюю цифру числа: \(n\bmod10\), умножает её на произведение и убирает цифру: \(n\mathbin{\mathrm{div}}10\).

var n, p: longint;
begin
  readln(n);
  if n = 0 then p := 0
  else
  begin
    p := 1;
    while n > 0 do
    begin
      p := p * (n mod 10);
      n := n div 10;
    end;
  end;
  writeln(p);
end.

0 0 Пожаловаться