Question

Напишите программу вычисления суммы факториалов всех нечетных чисел от 1 до 9 (Паскаль)

Answer 1

Var n, i: integer;
function fact(n: integer): integer;
begin
     if n = 1
     then
         fact := 1
     else
         fact := fact(n - 1) * n;
end;

begin
     for i := 1 to 9 do
     if i mod 2 = 1
     then
         writeln(fact(i));
end.