Составить программу для вычисления суммы факториал всех четных чисел
от m до n
Решение:
Program faktroial; var i,m,n,s:integer; function f(x:integer):integer; var k:integer; begin k:=1; for i:=2 to x do k:=k*i; f:=k; end; BEGIN writeln('ввести числа'); readln(m,n); s:=0; for i:=m to n do if i mod 2=0 then s:=s+f(i); writeln('ответ=',s); END.
Объяснение: Функция f возводит число в факториал. В цикле если число (диапазон от m до n) четное то сумма факториалов равна сумме чисел из прошло шага + факториал шага. Как-то так. Легче решить, чем объяснить.