计算机2级级若正整数N的所有因子之和等于N的倍数,则称N为红玫瑰数.如28的因子之和为1+2+4+7+14+28=56=28*2故28是红玫瑰数.求1到700之间红玫瑰的个数

Question

计算机2级级若正整数N的所有因子之和等于N 的倍数,则称N为红玫瑰数.
如28的因子之和为1+2+4+7+14+28=56=28*2 故28是红玫瑰数.求1到700之间红玫瑰的个数

Answer 1

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