Решение задачи. Паскаль

[Владиславик]

Решение задачи. Паскаль

Составить программу для вычисления суммы факториалов всех чётных чисел от N до m(n<=4, m<=8) (n и m вводятся (к примеру 3 и 7) и программа должна сосчитать факториалы 4 и 6)
помогите, если не сложно. Заранее спасибо

вот основное решение. только я не могу его правильно оформить! ошибку выдаёт :tehnari_ru_281:

readln(n,m);
s:=0;
while n<=m do begin
if n mod 2=0 then begin {если четное то начинаем считать}
f:=1;
for j:=1 to i do {в цикле считаем факториал}
f:=f*j;
s:=s+f; {суммируем}
end; {if}
inc; end;{while}

 

[Vladimir_S]

В представленном фрагменте всё правильно, кроме верхней границы цикла for-to. Почему там стоит какое-то непонятное неизвестно откуда взявшееся i, а не n?

 

[Владиславик]

наверное опечатка)))
если не сложно можно всю программу переделать) мне главное чтобы работала)))
спасибо за ранее)))

 

[Vladimir_S]

наверное опечатка)))
если не сложно можно всю программу переделать) мне главное чтобы работала)))
спасибо за ранее)))

Ничего не понимаю. В чем проблемы-то? Переменные описать, поставить вначале BEGIN, вывести результат и в конце поставить END. - в этом что ли?
Впрочем, раз уж такие проблемы на пустом месте, то - пожалуйста:

VAR
 n,m,f,s:LongInt;
 j:byte;
BEGIN
 writeln('n,m:');
 readln(n,m);
 s:=0;
 while n<=m do
  begin
   if n mod 2=0 then
    begin {если четное то начинаем считать}
     f:=1;
     for j:=1 to n do {в цикле считаем факториал}
      f:=f*j;
     s:=s+f; {суммируем}
    end; {if}
   inc(n);
  end;{while}
 writeln('S= ',s);
 readln
END.