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

[Zzoyberg]

Пользователь вводит натуральное число. Найти факториал суммы цифр этого числа. Использовать процедуры или функции!
Например, дано число 24. Надо найти факториал 6. Факториал числа 6! - это 1*2*3*4*5*6.
Загвоздка только в том, что необходимо использовать ТОЛЬКО процедуры или функции.

[Serge_Bliznykov]

абослютно непонятно, что Вас смущает..

program Example1;

function SumDigits(N : longint) : integer;
var SumN, OneDigit : integer;
begin
  SumN := 0;
  { суммуруем число N по цифрам (в обратном порядке) }
  repeat
    OneDigit := N mod 10;
    N := N div 10;
    SumN := SumN + OneDigit;
  until N = 0;
  SumDigits := SumN;
end;

function Factorial( N : integer) : Longint;
var R : Longint, i: integer;
begin
   R:=1;
   for i:=2 to N do R:=R*i;
   Factorial := R;
end;

{основная программа}
var M : Longint;
begin
  WriteLn('Введите число: ');
  Readln(M);
  WriteLn('Факториал суммы цифр равен ', Factorial( SumDigits( M )  ));
  Readln;
end.

p.s. код я не проверял... если где-то опечатался - исправьте самостоятельно..

[Zzoyberg]

Спасибо, всё работает.