Дано натуральное число n. Определить, во сколько раз произведение всех цифр заданного...

Question

Дано натуральное число n. Определить, во сколько раз произведение всех цифр заданного числа больше его первой цифры.
помогите написать программу в паскале.

Answer 1

Var
  n, i, p, s: integer;
 
begin
  p := 1;
  s := 0;
  read(n);
  while n > 0 do
  begin
    if(n div 10
    p := p * (n mod 10);
    n := n div 10;
  end;
  if(s <> p) then write('В ', p / s, ' раз')
  else write('В ', 0, ' раз') ;
end.