[数值问题] 以循环来计算1/1！+1/2!+1/3!+...+1/10!

program main
    implicit none
    real(kind=4)::s=0
    integer(kind=4)::m=1
    integer i,j
    do i=1,10
        do j=1,i
            m=m*j
        end do
        s=s+real(1/real(m))
    end do
    write(*,*)s
    stop
    end

program main
  implicit none
  real :: s = 0
  integer i,j,m
  do i=1,10
    m = 1 !//这里很重要
    do j=1,i
      m=m*j
    end do
    s=s+1.0/m
  end do
  write(*,*)s
end program main