Рекурсия: найти произведение цифр натурального числа - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Рекурсия: найти произведение цифр натурального числа - 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;

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ