Var x,xn,a,s,eps:real; n:integer;
begin
readln(x,eps);
xn:=x;
n:=1;
a:=x;
s:=a;
while abs(a)>eps do
begin
xn:=xn*x*x;
n:=n+2;
a:=xn/n;
s:=s+a;
end;
s:=2*s;
writeln('ln[(1+x)/(1-x)] = ',ln((1+x)/(1-x)):7:5,' s = ',s:7:5);
end.
Пример:
0.8 0.00001
ln[(1+x)/(1-x)] = 2.19722 s = 2.19720