ЕП
Евгеша Подкопаева
var i,k,znak: integer;
s,x,e,d,sum: real;
procedure fact(y:integer);
begin
while y>=1 do begin
s:=s*y;
dec(y);
end;
end;
begin
cls;
e:=1e-20; s:=1;
x:=0.5;
repeat
if k mod 2=0 then znak:=1 else znak:=-1;
fact(2*k+1);
d:=znak*exp((4*k+3)*ln(x))/((4*k+3)*s);
sum:=sum+d;
writeln(' sum=',sum);
s:=1; inc(k);
until abs(d)^