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

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

Question

Лота

13 ноября, 00:49

+4

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