您所在位置：主题：急急急急急急急急急
oqoq
[专家分：130] 发布于 2009-05-03 16:10:00
求三个最小的完全数，程序不出结果..................................(应该知道完全数是什么吧）
i=1
do
i=i+1
for j=1 to int(sqr(i))
if i mod j=0 then s=s+j
next j
if s=i then p=p+1:print i
loop until p=3
注：我才学到字符串
i=1
do
i=i+1
for j=1 to int(sqr(i))
if i mod j=0 then s=s+j
next j
if s=i then p=p+1:print i
loop until p=3
注：我才学到字符串