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 <= 0) then s := (n mod 10);
    p := p * (n mod 10);
    n := n div 10;
  end;
  if(s <> p) then write('В ', p / s, ' раз')
  else write('В ', 0, ' раз') ;
end.