noip2005C_4_1判断质数
题目描述:
给出一个正整数,判断这个数是否是质数。
输入:
一个正整数n(1≤n≤10000)。
输出:
如果n是质数,输出“YES”;否则,输出“NO”。
输入样例:
10
输出样例:
NO
var
n,i:integer;
begin
read(n);
if n=2 then writeln('YES')
else
begin
if (n=1) or (n mod 2=0) then writeln('NO')
else
begin
i:=3;
while i*i<=n do
begin
if n mod i=0 then
begin
writeln('NO');
exit;
end;
i:=i+2;
end;
writeln('YES');
end;
end;
end.