作业帮 > 综合 > 作业

判断大于2的整数是否为质数 程序

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/10 23:25:49
判断大于2的整数是否为质数 程序
var
n,i:longint;
begin
Read(n);
if n=2 then Writeln('true!')
else
begin
For i:=2 to trunc(sqrt(n)) do
begin
if n mod i=0 then
begin
Writeln('False');
Halt;
end;
end;
Writeln('True!');
end;
end.
由于题意不清.所以有问题可以再问我.
再问: 没学过···
再答: 你是用程序框图吗? 我描述一下过程 输入n 假如n=2 那么 循环 i=2 到 n-1 假如 i能够整除n 那么 输出 不是 结束 输出 是 结束
再问: 是用BASIC语言
再答: F=1 FOR I=2 TO SQR(N) IF N MOD I=0 THEN F=0 NEXT I IF F=1 THEN PRINT"YES" ELSE PRINT"NO" END 假如 FOR TO语句没有学过。那么你可以改成 LOOP UNTIL 或者是 DO WEND