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

Задано натуральное число n. Вычислить произведение цифр заданного числа.

Question

Нана

29 апреля, 15:31

+2

Ответы (1)

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

Трифена · Answer 1

Var

n, i, p: integer;

begin

p : = 1;

read (n) ;

while n > 0 do

begin

p : = p * (n mod 10) ;

n : = n div 10;

end;

write (p) ;

end.

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