洛谷 P3383 【模板】线性筛素数

题目描述

  如题，给定一个范围N，你需要处理M个某数字是否为质数的询问（每个数字均在范围1-N内）

输入输出格式

输入格式：

第一行包含两个正整数N、M，分别表示查询的范围和查询的个数。接下来M行每行包含一个不小于1且不大于N的整数，即询问概数是否为质数。

输出格式：

输出包含M行，每行为Yes或No，即依次为每一个询问的结果。

输入输出样例

输入样例#1：            输出样例#1：                                  

100  5                          Yes

2                                  Yes

3                                  No

4                                  No

91                                Yes

97

说明

时空限制：500ms 128M

数据规模：

对于30%的数据：N<=10000，M<=10000

对于100%的数据：N<=10000000，M<=100000

样例说明：

N=100，说明接下来的询问数均不大于100且大于1。

所以2、3、97为质数，4、91非质数。

故依次输出Yes、Yes、No、No、Yes。

个人代码：

var
    n,m,i,j:longint;
    p:array[1..10000000]of boolean;
    f:array[1..1000000]of longint;
Procedure shai;//线性筛法。
var i,j,k:longint;
begin
       fillchar(p,sizeof(p),true);
      k:=0;
      for i:=2 to n do
           begin
                  if(p[i]) then
                       begin
                           inc(k);
                           f[k]:=i;
                       end;
                 for j:=1 to k do
                     begin
                            if i*f[j]>n then break;
                            p[i*f[j]]:=false;
                            if(i mod f[j]=0)then break;
                    end;
           end;
end;
BEGIN
         read(n);//读入n后，先打表，就不用开多一个数组

来记录m了。
         shai;
         read(m);
         p[1]:=false;//1不是素数，但打表时，并没有筛掉。
         for i:=1 to m do
                begin
                     readln(j);
                     if(p[j]) then writeln('Yes')
                     else writeln('No');
               end;
END.