program Expon
Real(8) :: s = 1, f = 1, eps
Integer :: i = 1
Read *, eps
do while(abs(1 / f) > eps)
f = f * i
s = s + 1 / f
i = i + 1
enddo
Print *, 'e = ', s
end Program Expon
program Expon
Real(8) :: s = 1, f = 1, eps
Integer :: i = 1
Read *, eps
do while(abs(1 / f) > eps)
f = f * i
s = s + 1 / f
i = i + 1
enddo
Print *, 'e = ', s
end Program Expon