UC知道pascal 求一个数不是质数
来源：百度知道 编辑：UC知道 时间：2024/06/24 18:53:12
输入部分
本题的输入部分有很多组数据，每组单独占1行，由一个不大于999999的正整数组成
输出部分
对应每组输入，判断其是否为质数，输入Yes或者No，单独占1行
样例输入
2
3
4
5
6
7
8
9
样例输出
Yes
Yes
No
Yes
No
Yes
No
No
(用pascal做 在线等快！有加分！顺便加一下while not eof do 不会用就算了)
一定要用YES NO 不要出现TRUE FALSE!!!
本题的输入部分有很多组数据，每组单独占1行，由一个不大于999999的正整数组成
输出部分
对应每组输入，判断其是否为质数，输入Yes或者No，单独占1行
样例输入
2
3
4
5
6
7
8
9
样例输出
Yes
Yes
No
Yes
No
Yes
No
No
(用pascal做 在线等快！有加分！顺便加一下while not eof do 不会用就算了)
一定要用YES NO 不要出现TRUE FALSE!!!
var a:array[1..100]of longint;
i:integer;
function zs(a:integer):boolean;
var i:longint;
begin
zs:=false;
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then exit;
zs:=true;
end;
begin
for i:=1 to 8 do begin
readln(a[i]);
if zs(a[i]) then writeln('Yes')
else writeln('No');
end;
end.