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

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

Question

Карина

23 сентября, 17:44

+5

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