Написать программу для Pascal. Найти произведение цифр числа введенного с клавиатуры.
Написать программу для Pascal.
Найти произведение цифр числа введенного с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы