Вычислить сумму ряда cos (n) / (n-1) ! с позиции N до позиции M.

program zz1;

var

i, n, m:integer; / / задаем переменные целого типа

s:real; / / задаем переменную не целого типа

function fact (x:integer) : integer;

var v, p:integer;

begin

p:=1;

for v:=1 to x do

begin

p:=p * v;

end;

fact:=p;

end;

begin

write (' введите с какого n считаем сумму ряда ');

read (n); / / вводим с клавиатуры число

write (' введите до какого m считаем сумму ряда ');

read (m); / / вводим с клавиатуры число

s:=1;

for i:=n to m do / / организуем цикл

begin

s:=s + cos (i) / fact (i - 1) / / прибавляем часть ряда

end;

writeln (' полученная сумма ряда = ', s); / / выводим ответ

end.