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

Паскаль.

Question

Информатика

Матрёна

27 декабря, 15:57

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

Паскаль.

+4

Ответы (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. Найти отношение произведения цифр заданного числа к сумме его цифр.

Паскаль.