Написать программу для Pascal.

Найти произведение цифр числа введенного с клавиатуры.

Question

Аленка

25 апреля, 21:58

+1

Ответы (1)

Знаете ответ на вопрос?

Селивёрст · Answer 1

var n, p: integer;

begin

read (n) ;

p : = 1;

repeat

p : = n mod 10 * p;

n : = n div 10;

until n = 0;

write (p)

end.

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