Відношення добутку до суми

Обчислити відношення добутку цифр натурального числа до їх суми.
Вхідні дані
Натуральне число n, що не перевищує 2·109.
Вихідні дані
Вивести відношення добутку цифр числа n до їх суми з 3 десятковими цифрами.


Вхідні дані
36
Вихідні дані
2.000



program vidnoshennia;
var n:-10000000000..10000000000;
s : integer;
d : int64;
BEGIN
readln (n);
s:=0; d:=1;
while n<>0 do begin
d:=d*(n mod 10);
s:=s+n mod 10;
n:=n div 10;
end;
writeln ((d/s):1:3);

END.

Немає коментарів:

Дописати коментар