用 Fortran 语言编写:求2至10000之间的所有"完数"。所谓完数是指除自身之外的所有因子之和等于自身的数...

首先，我们需要了解什么是"完数"：所谓完数是指除自身之外的所有因子之和等于自身的数。例如，6 是完数，因为它的因子有 1、2、3，1+2+3=6。

下面是用 Fortran 语言编写的程序，用于求出 2 到 10000 之间的所有完数：

program perfect_numbers
    implicit none
    integer :: i, j, sum
    ! 循环遍历 2 到 10000 之间的所有数
    do i = 2, 10000
        sum = 0
        ! 求出 i 的所有因子
        do j = 1