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

Паскаль.

Question

Информатика

Машоня

9 сентября, 14:20

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

Паскаль.

+1

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

Паскаль.