Алгоритм на языке pascal выглядит следующим образом

{Вычисление суммы последовательности}

const n=10;

var s,a, p1, p2, p3, p4, e, x, alfa: real; i: byte; sw: boolean;

begin e:=exp(1); alfa:=pi/36;

writeln (‘Введите x, 2 <= x <= 3’);

readln (x);

{Начальная установка}

s:=0; sw:= true; p1:=1; p2:=1; p3:=1; p4:=alfa;

for i:=1 to n do begin

p1:=p1*e; p2:=p2*x; p3:=p3*i;

p4:=p4+alfa;{или p4:=alfa*i};

if sw then a:=(p1-p2)/(p3+sin(p4))

else a:=(p1-p2)/(p3-cos(p4));

s:=s+a; sw:= not sw

end; {конец цикла}

writeln (‘сумма=’,s:10:4);

End.

Для n = 10, x = 2.5 имеем S = 3.4541.

Алгоритм в Excel выглядит следующим образом.

A B C D E

n=
x=
e=	=EXP(1)
alfa=	=РАДИАНЫ(5)
Решение
№ п\п	ei	xi	i!	alfai
	=B3	=B2	=A7	=$B$4
=A7+1	=B7*$B$3	=C7*$B$2	=D7*A8	=A8*$B$4
=A8+1	=B8*$B$3	=C8*$B$2	=D8*A9	=A9*$B$4
=A9+1	=B9*$B$3	=C9*$B$2	=D9*A10	=A10*$B$4
=A10+1	=B10*$B$3	=C10*$B$2	=D10*A11	=A11*$B$4
=A11+1	=B11*$B$3	=C11*$B$2	=D11*A12	=A12*$B$4
=A12+1	=B12*$B$3	=C12*$B$2	=D12*A13	=A13*$B$4
=A13+1	=B13*$B$3	=C13*$B$2	=D13*A14	=A14*$B$4
=A14+1	=B14*$B$3	=C14*$B$2	=D14*A15	=A15*$B$4
=A15+1	=B15*$B$3	=C15*$B$2	=D15*A16	=A16*$B$4
=A16+1	=B16*$B$3	=C16*$B$2	=D16*A17	=A17*$B$4
=A17+1	=B17*$B$3	=C17*$B$2	=D17*A18	=A18*$B$4

F G H

ai	si	control
=ЕСЛИ(ОСТАТ(A7;2)=1;(B7-C7)/(D7+SIN(E7));(B7-C7)/(D7-COS(E7)))	=F7	=ЕСЛИ(A7=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A8;2)=1;(B8-C8)/(D8+SIN(E8));(B8-C8)/(D8-COS(E8)))	=G7+F8	=ЕСЛИ(A8=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A9;2)=1;(B9-C9)/(D9+SIN(E9));(B9-C9)/(D9-COS(E9)))	=G8+F9	=ЕСЛИ(A9=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A10;2)=1;(B10-C10)/(D10+SIN(E10));(B10-C10)/(D10-COS(E10)))	=G9+F10	=ЕСЛИ(A10=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A11;2)=1;(B11-C11)/(D11+SIN(E11));(B11-C11)/(D11-COS(E11)))	=G10+F11	=ЕСЛИ(A11=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A12;2)=1;(B12-C12)/(D12+SIN(E12));(B12-C12)/(D12-COS(E12)))	=G11+F12	=ЕСЛИ(A12=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A13;2)=1;(B13-C13)/(D13+SIN(E13));(B13-C13)/(D13-COS(E13)))	=G12+F13	=ЕСЛИ(A13=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A14;2)=1;(B14-C14)/(D14+SIN(E14));(B14-C14)/(D14-COS(E14)))	=G13+F14	=ЕСЛИ(A14=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A15;2)=1;(B15-C15)/(D15+SIN(E15));(B15-C15)/(D15-COS(E15)))	=G14+F15	=ЕСЛИ(A15=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A16;2)=1;(B16-C16)/(D16+SIN(E16));(B16-C16)/(D16-COS(E16)))	=G15+F16	=ЕСЛИ(A16=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A17;2)=1;(B17-C17)/(D17+SIN(E17));(B17-C17)/(D17-COS(E17)))	=G16+F17	=ЕСЛИ(A17=$B$1;"otvet")
=ЕСЛИ(ОСТАТ(A18;2)=1;(B18-C18)/(D18+SIN(E18));(B18-C18)/(D18-COS(E18)))	=G17+F18	=ЕСЛИ(A18=$B$1;"otvet")