Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project2;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var n,i,x:integer;
- prime:array[1..1000000] of boolean;
- j:int64;
- begin
- read(n);
- prime[1]:=false; prime[2]:=true;
- for i:=2 to 1000000 do
- begin
- if prime[i] then begin
- j:=i*i;
- while j<=1000000 do
- begin
- prime[j]:=false;
- j:=j+i;
- end;
- end;
- end;
- for i:=1 to n do
- begin
- read(x);
- if frac(sqrt(x))=0 then begin if prime[trunc(sqrt(x))] then writeln('YES') else writeln('NO'); end
- else writeln('NO');
- end;
- //readln(n);
- end.
Add Comment
Please, Sign In to add comment