Question

Написать программу при выполнение которой с клавиатуры вводятся натуральное число n,не привосходящее 1000 и выводится произведение цифр этого числа.

Срочно нужно!!!

Answer 1

var 
n, prod : integer;
begin 
   read (n); 
  prod := 1; 
  while n > 0 do 
  begin   
    prod := prod * (n mod 10);   
    n := n div 10; 
  end; 
  write (prod);
end.

Answer 2

var
  k, l: integer;

begin
  l := 1;
  readln(k);
  while (k > 0) do
  begin
    l := l * (k mod 10);
    k := k div 10;
  end;
  writeln(l);
end.