孪生素数对

算法 | 2017-09-05 13:36:42 | 阅读 655 次 | 评论(0)
clear
a=3
b=a
?"孪生素数对:"
for i=3 to 100 step 2
    x=0
    for j=2 to i-1
        if i/j=int(i/j)
           x=1
        endif
    endfor 
    if x=0
       a=i
       if a-b=2
           ?b,a
       endif
       b=a
    endif
endfor
文章评论,共0条
游客请输入验证码
浏览240657次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...