vfp求100以内的孪生素数

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/05 16:40:52

vfp求100以内的孪生素数
vfp求100以内的孪生素数

vfp求100以内的孪生素数
tmpX=0
for i = 2 to 100
tmpC=.F.
for j = 2 to i
if int(i/j)=i/j .and.ij
tmpC=.T.
endif
next
if tmpC=.F.
if i-tmpX=2 .and.tmpX0
i,tmpx
tmpX=i
endif
endif
next