筛选法

筛选法找素数程序vara:array[1..10000]ofboolean;i,j:integer;beginfori:=1to10000doa[i]:=true;fori:=2to5000dobeginifa[i]thenforj:=2totrunc(10000/i)doa[i*j]:=falseend;j:=0;fori:=2to10000doifa[i]thenbeginwrite(i:5);j:=j+1;ifjmod5=0thenwriteln;end;end.2，筛选法数学筛选法又称筛法，是...