Вычислить сумму и найти число слагаемых

[avatar54]

Вычислить сумму и найти число слагаемых, которые вошли в сумму. Процесс вычислений требуется закончить, когда очередное слагаемое по модулю окажется меньше ε (это слагаемое при вычислении суммы уже не учитывать) (Паскаль)

Безымянный12.png

[ura_111]

примеры у тебя есть?
Что нибудь подобное решали?

[newerow1989]

const e=0.00001;
var n:integer;
    x,s,s1,st:real;
    znak:-1..1;
begin
   Write('x = '); Readln(x);
   n:=0;
   s:=0;
   znak:=-1;
   st:=x;
   Repeat
      s1:=znak*st/(2*n+1)/(2*n+3);
      s:=s+s1;
      n:=n+1;
      znak:=-znak;
      st:=st*x*x;
   Until Abs(s1)<e;
   Writeln(s:8:5);
   Writeln(n);
   Readln;
end.