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.
由于題意不清.所以有問(wèn)題可以再問(wèn)我.沒(méi)學(xué)過(guò)···你是用程序框圖嗎？我描述一下過(guò)程輸入n假如n<2 那么直接輸出 不是 結(jié)束假如n=2 那么直接輸出 是 結(jié)束假如n>=2 那么 循環(huán) i=2 到 n-1 假如 i能夠整除n 那么 輸出 不是 結(jié)束輸出 是 結(jié)束是用BASIC語(yǔ)言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語(yǔ)句沒(méi)有學(xué)過(guò)。那么你可以改成 LOOPUNTIL 或者是DO WEND