Question

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

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