程序2.prg

vfp图书系统达到去全前往而且而且而且而且我 的 啊挨饿前往前往 前往饿前往而且外

for i=2 to 1000
s=0
for j=1 to i-1
   if mod(i,j)=0
   s=s+j
   endif
endfor
if s=i
?i
endif
endfor