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

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

Помогите пожалуйста с решением задачи с помощью рекурсивной функции :Найти произведение цифр натурального числа.
Var
 n : longint;
 pr:real;
Begin
Readln(n);
pr:=1;
While n<>0 Do
Begin
 pr:=pr*(n mod 10);
 n:=n div 10;
End;
Writeln('pr:=',pr);
readln
End.

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

textual
program Mult;
 
  function MulDigits(n: integer): integer;
  begin
    if n <> 0 then
      MulDigits := (n mod 10) * MulDigits(n div 10)
    else
      MulDigits := 1;
  end;
 
var
  n: integer;
begin
  readln(n);
  writeln(MulDigits(n));
end.

14   голосов, оценка 3.714 из 5


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