Дано натуральное число n. Определить, во сколько раз произведение всех цифр заданного числа больше его первой цифры.

помогите написать программу в паскале.

Question

Информатика

Зинуша

10 апреля, 16:17

Дано натуральное число n. Определить, во сколько раз произведение всех цифр заданного числа больше его первой цифры.

помогите написать программу в паскале.

+1

Ответы (1)

Знаете ответ?

Иванюха · Answer 1

Var

n, i, p, s: integer;

begin

p : = 1;

s : = 0;

read (n) ;

while n > 0 do

begin

if (n div 10 < = 0) then s : = (n mod 10) ;

p : = p * (n mod 10) ;

n : = n div 10;

end;

if (s p) then write ('В ', p / s, ' раз')

else write ('В ', 0, ' раз') ;

end.

Дано натуральное число n. Определить, во сколько раз произведение всех цифр заданного числа больше его первой цифры.помогите написать программу в паскале.

Дано натуральное число n. Определить, во сколько раз произведение всех цифр заданного числа больше его первой цифры.

помогите написать программу в паскале.