找素数.prg

来自「常用算法」· PRG 代码 · 共 14 行

*求 3-100之间的所有素数
clear 
for m=3 to 100 step 2
  n=int(sqrt(m))
 for i=3 to n
     if mod(m,i)=0
        exit
     endif
 endfor
if i>n
??m
endif
endfor