作业帮 > 数学 > 作业

计算机2级级若正整数N的所有因子之和等于N 的倍数,则称N为红玫瑰数.

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/06/24 16:28:42
计算机2级级若正整数N的所有因子之和等于N 的倍数,则称N为红玫瑰数.
如28的因子之和为1+2+4+7+14+28=56=28*2 故28是红玫瑰数.求1到700之间红玫瑰的个数
计算机2级级若正整数N的所有因子之和等于N 的倍数,则称N为红玫瑰数.
1
6
28
120
这个VBS写的,参考思路吧
dim i,k,ysh,gs
for i = 1 to 200
ysh = 0
for k = 1 to i
if i mod k = 0 then
ysh = ysh + k
end if
next
if ysh mod i = 0 then
print i
gs = gs+1
end if
next
print "个数为" & gs