100以内的素数和流程图

859+863+877+881+883+887+907+911+919+929+937+941+947+953+967+971+977+983+991+997=18580

CLEARSETTALKOFFFORi=2TO100flag1=.t.FORj=2TOINT(SQRT(i))IFMOD(i,j)=0flag1=.f.EXITENDIFNEXTIFflag1=.t.

2357111317192329313741434753596167717379838997共有25个1不是素数也不是合数.剩下的都是合数.

PrivateSubCommand1_Click()Dima()Fori=100To1Step-1Forj=i-1To1Step-1IfiModj=0Thenn=n+1NextIfn=1Thenm=m

publicclassSuShuo{staticintk;publicstaticvoidmain(String[]args){inti,j;for(i=1;i

素数就是质数,指在一个大于1的自然数中,除了1和此整数自身外,没法被其他自然数整除的数.100以内的素数有2357111317192329313741434753596167717383899397

100以内的质数（素数）：2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97（共25个)100内的合数有：4.

2357111317192329313741434753596167717379838997搜个“素数”不就有了呗.

ClearSetTalkOnms=0&&和j=0&&素数个数m.flag=0&&标记一个数是否为素数Fori=2To100\x05m.flag=0\x05Fork=2Toi-1\x05\x05Ifi%

fori=200to500flag=1forj=2toi+1ifimodj=0thenflag=0:exitfornextjifflag=1thens=s+i:prints,i

答案：76127；P程序如下：vari,j,k,n,z:longint;beginfori:=2to1000dobegink:=1;forj:=2toround(sqrt(i))doifimodj=0

素数235711131719232931374143475359616771737983899397偶数2468...

素数：2357111317192329　　31374143475359616771　　7379838997奇数：13579111315171921232527293133353739414345474

Rem语言：VisualBasic6.0SubMain() '开始 i=2 Do   j=2   Do

Programex;Vari:Byte;Functionf(x:Byte):Boolean;Varm,i:Byte;Beginm:=Trunc(sqrt(x));f:=True;Fori:=2TomD

数值太大,溢出了.LONG只是64有符号的数,就算10*100就有100位,更不要说1到100阶乘和了.建议用DOUBLE他是浮点.所以值可能会不是很精确.我算出来是9.42690016837099E

235711131719232931374143475357616771737983899725个

2357111317192329313741434753596167717379838997~再问：1000`再问：1000以内的质数(素数)快!对了给好评！再答：101103107109113127

12,13,15,16,14,25,36,24,36,39,38,37,63,65,61,68,62,69,99,98,93,92,95,94.

2+97=99