Рекурсия: найти произведение цифр натурального числа - Pascal ABC
Формулировка задачи:
Написать программу с рекурсивной функцией. Найти произведение цифр натурального числа.
Решение задачи: «Рекурсия: найти произведение цифр натурального числа»
textual
Листинг программы
Function MulCif(A : Longint) : Longint; Begin If A>0 then MulCif:=(A mod 10)*MulCif(A div 10) else MulCif:=1; end;
Объяснение кода листинга программы
- В функции
MulCif
переменнойA
присваивается значениеLongint
. - Если
A
больше нуля, то вызывается рекурсивная функцияMulCif
с аргументомA div 10
, а результат умножается на остаток от деленияA mod 10
. - Если
A
равно нулю или отрицательное, то результатом будет1
. - Функция завершается и возвращает результат.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д