若正整数A的所有因子(包括1但不包括自身,下同)之和为B,而B的因子之和为A,则称A和B为一对亲密数.
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/05 22:30:39
若正整数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以内的所有亲密数对.在输出每对亲密数对时,要求小数在前,大数在后,并去掉重复的数对.
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
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
编程:找出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