主题：怎样用筛选法求素数
gfdsaqw
[专家分：0] 发布于 2006-10-18 09:21:00
依次删除每个数的倍数，如保留2删除2的倍数，保留3删除3的倍数，急，急
回复列表 （共1个回复）
沙发
moz [专家分：37620] 发布于 2006-10-18 10:41:00
m%=16000
dim s%(m%)
for i% = 2 to m%
if s%(i%)=0 then print i%;
for j%=(i%*2) to m% step i%
s%(j%)=-1
next j%,i%
我来回复
您所在位置：