若正整数A的所有因子(包括1但不包括自身,下同)之和为B,而B的因子之和为A,则称A和B为一对亲密数.
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/17 17:41:15
若正整数A的所有因子(包括1但不包括自身,下同)之和为B,而B的因子之和为A,则称A和B为一对亲密数.
例如,又如,220的因子之和为l+2+4+5+10+11+20+22+44+55+110=284,而284的因子之和为1+2+4+71+142=220,因此,220与284为一对亲密数.
求3000以内的亲密数对.
编写一个自定义函数过程facsum(n as integer),函数的返回值是给正整数n的所有因子(包括1但不包括自身)之和.
在窗体的click 事件过程中调用已定义的函数facsum,寻找并在窗体上输出3000以内的所有亲密数对.在输出每对亲密数对时,要求小数在前,大数在后,并去掉重复的数对.
例如,又如,220的因子之和为l+2+4+5+10+11+20+22+44+55+110=284,而284的因子之和为1+2+4+71+142=220,因此,220与284为一对亲密数.
求3000以内的亲密数对.
编写一个自定义函数过程facsum(n as integer),函数的返回值是给正整数n的所有因子(包括1但不包括自身)之和.
在窗体的click 事件过程中调用已定义的函数facsum,寻找并在窗体上输出3000以内的所有亲密数对.在输出每对亲密数对时,要求小数在前,大数在后,并去掉重复的数对.
![若正整数A的所有因子(包括1但不包括自身,下同)之和为B,而B的因子之和为A,则称A和B为一对亲密数.](/uploads/image/z/18142769-65-9.jpg?t=%E8%8B%A5%E6%AD%A3%E6%95%B4%E6%95%B0A%E7%9A%84%E6%89%80%E6%9C%89%E5%9B%A0%E5%AD%90%28%E5%8C%85%E6%8B%AC1%E4%BD%86%E4%B8%8D%E5%8C%85%E6%8B%AC%E8%87%AA%E8%BA%AB%2C%E4%B8%8B%E5%90%8C%29%E4%B9%8B%E5%92%8C%E4%B8%BAB%2C%E8%80%8CB%E7%9A%84%E5%9B%A0%E5%AD%90%E4%B9%8B%E5%92%8C%E4%B8%BAA%2C%E5%88%99%E7%A7%B0A%E5%92%8CB%E4%B8%BA%E4%B8%80%E5%AF%B9%E4%BA%B2%E5%AF%86%E6%95%B0.)
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
![](http://img.wesiedu.com/upload/1/1d/11d001114b45a5caac5f0f904faa3e2d.jpg)
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
![](http://img.wesiedu.com/upload/1/1d/11d001114b45a5caac5f0f904faa3e2d.jpg)
编程:找出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为亲密数对.
如果一个正整数恰好等于它的所有因子(包括1但不包括自身)之和,则称之为“完数”,例如6的因子是1,2,3,且6=1+2+
计算机2级级若正整数N的所有因子之和等于N 的倍数,则称N为红玫瑰数.
编程:求1000以内的所有完全数.(说明:一个数如果恰好等于它的因子—(自身除外)之和,则称该数为完全
如果一个整数的所有因子(包括1,但不包括这个数本身)之和与该数相等,则称这个数位完数.例如6=1+2+3,
C++完数问题如果一个整数其所有因子(包括1但不包括自己)之和等于它自身,那么这个整数就是一个完数.
什么是亲密数对a或b的因子是指什么
vb 如果一个数的因子之和等于这个数的本身,则称这样的数为完全数.
a,b,c为三个正整数,b-c=13,a=2b,三数之和是一个小于50的质数,且它们的各数之和为11,试求a,b,c三数
VB编程题 求编写:如果一个数的因子之和等于这个数的本身,则称这样的数为“完全数”.例如,整数28的因子为1,2,4,7