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

Var   n,c,S,P:integer;BeginWrite('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.