clears=0n=1do while .t. m=1 for i=1 to n m=m*i endfor r=1/m s=s+r if r<0.000001 exit endif n=n+1enddo?"e=1+1/1!+1/2!+1/3!+…+1/N!=",s
