首页 > 代码库 > O(n) 筛法求素数
O(n) 筛法求素数
var tot,i,j,k,m,n:longint;
prime:array[0..100000] of boolean;
p:array[0..100000] of longint;
begin
read(n);
fillchar(prime,sizeof(prime),true);
prime[1]:=false;
tot:=0;
fillchar(p,sizeof(p),0);
for i:=2 to n do
begin
if prime[i] then
begin
inc(tot);
p[tot]:=i;
end;
for j:=1 to tot do
begin
if i*p[j]>n then break;
prime[i*p[j]]:=false;
if i mod p[j]=0 then break;
end;
end;
for i:=1 to tot do
writeln(p[i]);
end.
O(n) 筛法求素数
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。