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

题目描述

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

输入输出格式

输入格式：

第一行包含两个正整数N、M，分别表示查询的范围和查询的个数。

接下来M行每行包含一个不小于1且不大于N的整数，即询问该数是否为质数。

 

输出格式：

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

 

代码

var
  n,m,nm:longint;
  v,prime:array [0..10000001] of longint;
procedure try1;
var
  i,j:longint;
begin
  nm:=0;
  v[1]:=1;
  for i:=2 to 10000000 do
    begin
      if v[i]=0 then
        begin
          inc(nm);
          prime[nm]:=i;
        end;
      j:=1;
      while (j<=nm) and (i*prime[j]<=10000000) do
        begin
          v[i*prime[j]]:=1;
          if i mod prime[j]=0 then break;
          inc(j);
        end;
    end;
end;

procedure init;
var
  i,x:longint;
begin
  readln(n,m);
  for i:=1 to m do
    begin
      readln(x);
      if v[x]=0 then writeln('Yes')
                else writeln('No');
    end;
end;

begin
  try1;
  init;
end.