列出1-N之间的所有完数

算法 | 2015-11-24 10:38:38 | 阅读 1201 次 | 评论(0)
clear
for i=1 to 100
    k=0
    cstr=""
    for j=1 to i-1
        if i % j=0
            k=k+j
            cstr = cstr+alltrim(str(j))+","
        endif
    endfor
    if k=i
        ?str(i) +"  完数 :" +left(cstr,len(cstr)-1)
    endif
endfor
文章评论,共0条
游客请输入验证码
浏览234096次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...