我又来了，每周一次。。。。1.已知如下形式的四位数a2b3能被23整除，编写程序求出这些四位数。2.输出100以内的所有素数(质数)。3.一个数如果恰好等于它的因子之和，这个数称为“完

Question

我又来了，每周一次。。。。
1. 已知如下形式的四位数 a2b3 能被23整除，编写程序求出这些四位数。
2. 输出 100 以内的所有素数(质数)。
3. 一个数如果恰好等于它的因子之和，这个数称为“完数”。例如 6 的因子有 1、2、3，而且 6 = 1 + 2 + 3，因此 6 是完数。编写程序找出 1000 以内的所有完数，并按下面格式输出： 6 its factors are 1，2，3
VFP啊~

Answer 1

1、
clear
?"形如a2b3 能被23整除的这些四位数有："
for i=1000 to 9999
k=alltrim(str(i))
if substr(k,2,1)="2" and right(k,1)=3 and i%23=0
??i
endif
endfor
2、
clear
??"1到100之间的素数为："
for i=2 to 100
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
??alltrim(str(i))+" "
endif
endfor
3、
clear
?"1到1000内的所有完数为："
for i=1 to 1000
s=0
for j=1 to int(i/2)
if i%j=0
s=s+j
endif
endfor
if s=i
??i
endif
endfor