1151 筛素数

yjy_aii

于 2017-08-09 21:29:01 发布

阅读量286

点赞数 2

分类专栏：数学方法

本文链接：https://blog.youkuaiyun.com/yjy_aii/article/details/77017306

版权

数学方法专栏收录该内容

18 篇文章

订阅专栏

题目
题解
代码

题目

求2-1000000之间的素数

题解

fillchar(a,sizeof(a),false);
for i:=2 to trunc(sqrt(n))+1 do
if not a[i] then
for j:=2 to n div i do
a[i*j]:=true;

代码

var
  a:array[1..1000000]of boolean;
  i,j:longint;
begin
  fillchar(a,sizeof(a),false);
  for i:=2 to 1000 do
    if not a[i] then
      for j:=2 to 1000000 div i do
        a[i*j]:=true;
  for i:=2 to 1000000 do
    if not a[i] then writeln(i);
end.