1到m之间质数有多少个

　　质数也称素数,

　　我们把只有1和其本身两个正因数的自然数称为质数(又称素数),2是最小的质数,也是唯一的一个既是偶数又是质数的数．也就是说,除了2以外,质数都是奇数,小于100的质数如下25个：2,3,5,7,.

　　当然我们也想知道1到

　　1000或1到更多的数之间到底有多少个质数,

　　下面就是用计算

　　机通过编程来解决这个问题.

　　1到m之间有多少外质数的程序.

　　INPUTm

　　a=1

　　p=0

　　DO

　　i=1

　　DO

　　i=i+1

　　r=(a)MOD(i)

　　LOOPUNTILi>a-1ORr=0

　　IFr=0ANDi>a-1THEN

　　p=p+1

　　PRINTa;p

　　ENDIF

　　a=a+1

　　LOOPUNTILa>m

　　END

　　运行后结果如下

　　1到400之间有78个质数