Факториал

[Катя)]

Надо найти сумму факториалов нечетных чисел в диапазоне в от n до m.
Оператор: repeat


Прошу помочь.
Заранее благодарю.

[Летучий_СкилетиК]

var n,m,i,j:integer;
    s,f:longint;
begin
read(n,m);
f:=1;
for i:=2 to n do
   f:=f*i;
i:=n;
s:=0;
repeat
           if  i mod 2 <>0 then s:=s+f;
           inc(i);
           f:=f*i;
until i>m;
writeln(s);
end.

[Катя)]

спасибо большое)

[Serge_Bliznykov]

Летучий_СкилетиК, в коде есть недоработка(по заданию) и есть неэффективная реализация.

Недоработка - забыли, что в условии надо искать сумму факториалов нечётных чисел..

А не очень эффективная реализация.
Это потому, что Вы факториал каждый раз считаете от единицы.

Вот скажите, если у Вас есть факториал N (N!), что Вы сделаете, чтобы найти факториал следующего числа ( N+1, соответственно) ?! посчитаете произведение всех чисел от 1 до N+1 ? Это будет правильно, но ... Гораздо лучше взять факториал N! (который у нас уже есть) и умножить его на это самое следующее число (т.е. на (N+1)) и всё. Всего одна операция умножения...
Впрочем, это я Вам просто в качестве совета говорю...

[Летучий_СкилетиК]

Недоработка - забыли, что в условии надо искать сумму факториалов нечётных чисел.

,все недочеты отредактировал

[Serge_Bliznykov]

все недочеты отредактировал

супер! Имхо, кстати, стало даже короче и нагляднее.