用Fortran语言编写程序：输入任意整型n，计算 1/1!+1/2!+1/3!+......1/n!

好的，这个问题是可以回答的。请看下面的Fortran程序：

program calc_factorial
    implicit none
    integer :: n, i
    real :: fact, sum
    
    write(*,*) "请输入任意整数n："
    read(*,*) n
    
    sum = 0.0
    
    do i = 1, n
        fact = 1.0
        do j = 1, i
            fact = fact * j
        end do
        sum = sum + 1.0/fact
    end do
    
    write(*,*) "计算结果为：", sum
    
end program calc_factorial

这个程序可以计算 1/1! + 1/2! + 1/3! +......+1/n! 的值。输入任意整数 n 后，程序会逐个计算每一项的值，并将它们加起来。最后，程序会输出计算结果。

希望这个程序可以对你有所帮助！