Задано натуральное число n. Найти отношение произведения цифр заданного числа к сумме его...

Question

Задано натуральное число n. Найти отношение произведения цифр заданного числа к сумме его цифр.
Паскаль.

Answer 1

Var
   n,c,S,P:integer;
Begin
Write('n = ');ReadLn(n);
S:=0;
P:=1;
While n > 0 do
   Begin
   c:=n mod 10;
   S:=S+c;
   P:=P*c;
   n:=n div 10
   End;
WriteLn('P/S = ',P/S);
End.