S=0;T=0.5;k=0
while T-S>10^(-6)
    k=k+2
    S=S+1/prod(1:k)-1/prod(1:(k+1))
    T=T-1/prod(1:(k+1))+1/prod(1:(k+2))
end
encadrement= string(S)+"<exp(-1)<"+string(T)
afficher(encadrement)