noip2005初赛-判断质数

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.