若正整数A的所有因子(包括1但不包括自身,下同)之和为B,而B的因子之和为A,则称A和B

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/06 10:49:57

若正整数A的所有因子(包括1但不包括自身,下同)之和为B,而B的因子之和为A,则称A和B
．若正整数A的所有因子（包括1但不包括自身,下同）之和为B,而B的因子之和为A,则称A和B为一对亲密数.求10000以内的所有亲密数对.
例如,6的因子之和为1+2+3=6,因此6与6为一对亲密数（即6自身构成一对亲密数）；
220的因子之和为1 + 2 + 4 + 5 + 10 + 11 + 20 + 22 + 44 +55+110=284,而284的因子之和为1+2+4+71+142=220,因此,220与284为一对亲密数.
具体要求如下：
（1）编制一个函数facsum(n),返回给定正整数n的所有因子（包括1但不包括自身）之和.
（2）编制一个主函数,调用（1）中的函数facsum( ),寻找并输出10000以内的所有亲密数对.
（3）输出要有文字说明.在输出每对亲密数时,要求小数在前、大数在后,并去掉重复的数对.
#include
void main()
{
\x09int facsum(int n);
\x09int a, b, c;
\x09for (a = 1; a < 10001; a++)
\x09{
\x09\x09b = facsum(a);
\x09\x09c = facsum(b);
\x09\x09if (a == c || a >= b)
\x09\x09\x09printf("%d,%d\n", b, a);
\x09}
}
int facsum(int n)
{
\x09int d, e=0;
\x09for (d = 1; d < n; d++)
\x09{
\x09\x09if (n%d==0)
\x09\x09\x09e = e + d;
\x09}
\x09return(e);
}
求高手指导一下哪里错了?

Private Sub form_Click()
Dim i As Integer,j As Integer,k As Integer
For i = 1 To 3000
j = facsum(i)
k = facsum(j)
If i = k And i < j Then Print i; j
Next i
End Sub
Function facsum(n As Integer) As Integer
Dim s As Integer
s = 0
For i = 1 To n \ 2
If n Mod i = 0 Then s = s + i
Next i
facsum = s
End Function
希望能解决您的问题.
再问：我们学的是c语言，不过谢谢你

如果一个正整数恰好等于它的所有因子(包括1但不包括自身)之和,则称之为“完数”,例如6的因子是1,2,3,且6=1+2+ 编程:找出2—1000中的亲密数对(如果a的因子和等于b,b的因子和等于a,且a≠b,则称a,b为亲密数对). 找2~1000中的亲密数对（如果a的因子和等于b ,b的因子和等于a ,且a≠b,则称a,b为亲密数对. 用c语言写：如果a的因子和等于b,b的因子和等于a,且a≠b,则称a,b为亲密数对. 计算机2级级若正整数N的所有因子之和等于N 的倍数,则称N为红玫瑰数. 如果一个整数的所有因子（包括1,但不包括这个数本身）之和与该数相等,则称这个数位完数.例如6=1+2+3, 编程：求1000以内的所有完全数.（说明：一个数如果恰好等于它的因子—（自身除外）之和,则称该数为完全 C++完数问题如果一个整数其所有因子（包括1但不包括自己）之和等于它自身,那么这个整数就是一个完数. 设A=4444,B=A?A(A的A次方),C为B的所有数字之和,D为C的所有数字之和,E为D的所有数字之和,求E的值? 题目：：编写函数fun,函数的功能是：计算并输出给定 ' 整数n的所有因子之和（不包括1与自身）. 已知正整数a与b 之和为432,a与b 的最小公倍数与最大公约数的和为7776,求ab 已知数轴上有A和B两点,A和b的距离为1,A与原点的距离为3,则所有满足条件的点与原点的距离之和等于多少?