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

Question

Информатика

Емилий

8 апреля, 07:38

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

+4

Ответы (1)

Знаете ответ на вопрос?

Сона · 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.