Вычислить сумму ряда с точностью e=10–6
Ряд прикреплен в файле
Задача на Pascal
program ddm;
uses crt;
var a,x,i:integer;
m,j,h,f,l:real;
begin
clrscr;
writeln('Введите х');
readln(x);
writeln('Введите a');
readln(a);
j:=x;
for i:=1 to a+1 do
j:=j*x;
h:=(i+1)*j + 1;
f:=sqr(i+1);
l:=h/f;
if (i+1)mod 2 = 0 then
m:=m+l
else m:= m-l;
end;
writeln(m:2:5);
readkey;
end.