Дано натуральне число n. Найти произведение его цифр pascal

Предыдущий
вопрос Следующий
вопрос

Для нахождения произведения цифр числа мы можем использовать следующий алгоритм:

Инициализируем переменную "произведение" ("product") равной 1.Преобразуем число n в строку, чтобы получить доступ к его цифрам.Проходим по каждой цифре числа n в цикле.Преобразуем каждую цифру из строки в целое число и умножаем его на текущее значение "произведения".Обновляем значение переменной "произведение" умножив её на текущую цифру.После завершения цикла, переменная "произведение" будет содержать произведение всех цифр числа n.

Пример кода на Pascal для нахождения произведения цифр числа:

program ProductOfDigits
va
n, digit, product: integer
numStr: string
begi
writeln('Введите натуральное число n:')
readln(n)
numStr := IntToStr(n)
product := 1
for digit := 1 to Length(numStr) d
begi
product := product * StrToInt(numStr[digit])
end
writeln('Произведение цифр числа ', n, ' равно ', product)
end.

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