Program ciklp_2-

Uses crt-

Var e,s,ss:real-

i,n,fact:integer-

begin

ClrScr-

S:=2- ss:=0- e:=0.001- fact:=1- n:=1-

repeat

ss:=s-

for i:=1 to n do

fact:=fact*i-

s:=s+1/fact-

n:=n+1-

until abs(s-ss)&lt-e-

writeln(s:5:3)-

readln-

end.