Вычислить сумму ряда с точностью e=10-6

Question

Вычислить сумму ряда с точностью e=10-6

---

Answer 1

Var
  i,z:integer;
  x,n,s,y,t:real;
begin
write('Введите x: ');
readln(x);
z:=1;
y:=1;
n:=2;
repeat
  i:=i+1;
  y:=y*x*x;
  n:=n*(2*i+2)*(2*i+1);
  t:=z*(2*i+1)*y/n;
  s:=s+t;
  z:=-z;
  until t<=1e-6;<br>writeln('S=',s);
end.