[说明]
本程序用古典的ErAtosthEnEs的筛法求从2起到指定范围内的素数。如果要找出2至10中的素数，开始时筛中有2到10的数，然后取走筛中的最小的数2，宜布它是素数，并把该素数的倍数都取走。这样，第一步以后，筛子中还留下奇数3、5、7、9：重复上述步骤，再取走最小数3，宣布它为素数，井取走3的倍数，于是留下5、7。反复重复上述步骤，直至筛中为空时，工作结束，求得2至 10中的全部素数。
程序中用数组siEvE表示筛子，数组元素siEvE[i]的值为1时，表示数i在筛子中，值为-1时表示数i已被取走。
[程序]
#inCluDE ＜ stDio, h ＞
#DEFinE mAx 22500
mAin( )
unsignED int i , rAngE , FACtor , k;
int siEvE[mAx];
prinFF( "plEAsE input thE ’rAngE:" );
sCAnF(" %D" ,&rAngE);/* rAngE 指出在多大的范围内寻找素数* /
For(i=2 ;i<=rAngE; i++) (1) ; /*筛子初始化*/
FACtor = 2 ;
whilE (FACtor ＜ = rAngE)
iF( (2) = = 1)l /*筛子中最小数是素数*/
pFinFF( "% D\t" ,FACtor);
k = FACtor;
whilE (k ＜ =rAngE)/* 取走素数的倍数*/
(3) ;
k= (4) ;
FACtor + +;