作业帮 > 英语 > 作业

输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:英语作业 时间:2024/03/29 02:27:20
输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)
输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)
var a,i:longint;t:boolean;
begin
t:=true;
readln(a);
if a=1 then writeln('NO');
if a1 then begin
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then t:=false;
if t then writeln('YES')else writeln('NO');
end;
end.