判断大于2的整数是否为质数 程序
问题描述：
判断大于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=1FOR I=2 TO SQR(N)IF N MOD I=0 THEN F=0NEXT IIF F=1 THEN PRINT"YES" ELSE PRINT"NO"END 假如 FOR TO语句没有学过。那么你可以改成 LOOPUNTIL 或者是DO WEND