noip2005初赛-判断质数

noip2005C_4_1判断质数

 

题目描述:

给出一个正整数，判断这个数是否是质数。

 

输入:

一个正整数n(1≤n≤10000)。

 

输出:

如果n是质数，输出“YES”；否则，输出“NO”。

 

输入样例:

10

 

输出样例:

NO

varn,i:integer;beginread(n);if n=2 then writeln('YES')else beginif (n=1) or (n mod 2=0) then writeln('NO')elsebegini:=3;while i*i<=n dobeginif n mod i=0 thenbeginwriteln('NO');exit;end;i:=i+2;end;writeln('YES');end;end;end.