Да пожалуйста. Язык программирования - Free Pascal:
Код:
Var
k:Integer;
S,a,eps:Real;
BEGIN
Write('Eps= ');
Readln(eps);
WriteLn(' Result Number of items Accurate value');
k:=1;
a:=-1;
S:=a;
Repeat
Inc(k);
a:=-a/k;
S:=S+a;
Until Abs(a)<Eps;
WriteLn(S:12:6,k:12,(Exp(-1)-1):24:6);
Readln;
END.
И модераторское замечание: прекратите уделывание форума дубликатами!!! У нас подобное наказуемо, вплоть до бана.
Тема-дубликат удалена.