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

Паскаль.

Question

Информатика

Груняка

5 августа, 17:08

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

Паскаль.

+2

Ответы (1)

Знаете ответ на вопрос?

Петяха · 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.

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

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

Паскаль.