Guest User

Untitled

a guest
Dec 10th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.65 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. var n,i,x:integer;
  9.     prime:array[1..1000000] of boolean;
  10.     j:int64;
  11.  
  12. begin
  13. read(n);
  14. prime[1]:=false; prime[2]:=true;
  15. for i:=2 to 1000000 do
  16.  begin
  17.  if prime[i] then begin
  18.                   j:=i*i;
  19.                   while j<=1000000 do
  20.                    begin
  21.                    prime[j]:=false;
  22.                    j:=j+i;
  23.                    end;
  24.                   end;
  25.  end;
  26. for i:=1 to n do
  27.  begin
  28.  read(x);
  29.  if frac(sqrt(x))=0 then begin if prime[trunc(sqrt(x))] then writeln('YES') else writeln('NO'); end
  30.                     else writeln('NO');
  31.  end;
  32. //readln(n);
  33. end.
Add Comment
Please, Sign In to add comment