作业帮整数N的所有因子之和等于N的倍数,则N称为多因子完备数,求[1,1000]之间所有多因子完备数.
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 00:35:10
![整数N的所有因子之和等于N的倍数,则N称为多因子完备数,求[1,1000]之间所有多因子完备数.](/uploads/image/z/5123140-52-0.jpg?t=%E6%95%B4%E6%95%B0N%E7%9A%84%E6%89%80%E6%9C%89%E5%9B%A0%E5%AD%90%E4%B9%8B%E5%92%8C%E7%AD%89%E4%BA%8EN%E7%9A%84%E5%80%8D%E6%95%B0%2C%E5%88%99N%E7%A7%B0%E4%B8%BA%E5%A4%9A%E5%9B%A0%E5%AD%90%E5%AE%8C%E5%A4%87%E6%95%B0%2C%E6%B1%82%5B1%2C1000%5D%E4%B9%8B%E9%97%B4%E6%89%80%E6%9C%89%E5%A4%9A%E5%9B%A0%E5%AD%90%E5%AE%8C%E5%A4%87%E6%95%B0.)
整数N的所有因子之和等于N的倍数,则N称为多因子完备数,求[1,1000]之间所有多因子完备数.
整数N的所有因子之和等于N的倍数,则N称为多因子完备数,求[1,1000]之间所有多因子完备数.
整数N的所有因子之和等于N的倍数,则N称为多因子完备数,求[1,1000]之间所有多因子完备数.
vfp:::::::
set talk off
clear
k=0
for n=1 to 1000
s=0
for i=1 to n
if mod(n,i)=0
s=s+i
endif
endfor
if mod(s,n)=0
k=k+1
endif
endfor
? k
set talk on
return