筛法求素数真的很快

筛法求素数真的很快，具体有多快？今天测了一下：

求10万以内所有素数，用时0.01秒之内；

求100万以内所有素数，用时0.08秒；

求1000万以内所有素数，用时1.1秒；

求1亿以内所有素数，用时约13秒。

用我那台烂电脑测筛法求素数的效率都如此之高，所以这个……必须要熟练掌握啊！

var i,j,k,n:longint;

l:array[1..1000000]of boolean;

su:array[1..500000]of longint;

begin

k:=0;

fillchar(l,sizeof(l),true);

readln(n);

for i:=2 to trunc(sqrt(n)) do

if l[i] then

for j:=2 to n div i do l[i*j]:=false;

for i:=2 to n do if l[i] then begin

inc(k);

su[k]:=i;

end;

writeln(k);

for i:=1 to k do write(su[i]:8);

end.