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

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

Question

Харламп

15 мая, 10:37

+3

Ответы (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. Вычислить произведение цифр заданного числа.