判断大于2的整数是否为质数程序
5人问答
问题描述：
判断大于2的整数是否为质数程序
尚字辉回答：
var
n,i:longint;
begin
Read(n);
ifn=2thenWriteln('true!')
else
begin
Fori:=2totrunc(sqrt(n))do
begin
ifnmodi=0then
begin
Writeln('False');
Halt;
end;
end;
Writeln('True!');
end;
end.
由于题意不清.所以有问题可以再问我.
尚字辉回答：
F=1FORI=2TOSQR(N)IFNMODI=0THENF=0NEXTIIFF=1THENPRINT"YES"ELSEPRINT"NO"END假如FORTO语句没有学过。那么你可以改成LOOPUNTIL或者是DOWEND
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
邮箱： 