Question

输入一整数A,判断它是否质数.（提示：若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.）

Answer 1

var a,i:longint;t:boolean;

begin

t:=true;

readln(a);

if a=1 then writeln('NO');

if a1 then begin

for i:=2 to trunc(sqrt(a)) do

if a mod i=0 then t:=false;

if t then writeln('YES')else writeln('NO');

end;

end.