fotran编程 求1000之内的所有完数

来源：百度知道 编辑：UC知道 时间：2024/06/30 16:58:04
完数是所有除自身之外的因数之和等于自身的数
6的因数有1,2,3,6,而6=1+2+3
28的因数有1,2,4,7,14,28,而28=1+2+4+7+14,也是完数

#include<iostream>
using namespace std;
int fun(int n)
{
int sum=0;
for(int i=1;i<n;i++)
{
if(n%i==0)
sum+=i;
}
if(sum==n)
return true;
else return false;
}
void main()
{
for(int i=1;i<=1000;i++)
{
if(fun(i))
cout<<i<<" ";
}
cout<<endl;
}