1樓：匿名使用者
program t1;
varn,i:longint;
f:boolean;
begin
readln(n);
i:=2;f:=true;
while (i<=trunc(sqrt(n))) and f doif n mod i=0 then f:=falseelse inc(i);
if f then writeln('yes')else writeln('no');
readln;readln;
end.
不知回答是否合意，如有問題請指出，本人感激不盡！
2樓：匿名使用者
var n,i,j,k:longint;
t:boolean;
begin
readln(n);
if n=1 then begin
writeln('no');
halt;
end;
t:=true;
for i:=2 to trunc(sqrt(n)) do if n mod i=0 then begin
t:=false;
break;
end;
if t then writeln('yes') else writeln('no');
end.
3樓：
program project1;
vari,t:word;
n:integer;
begin
readln(n);
for i:=2 to （n-1） do
if n mod i=0 then begininc(t);break;end;
if t=0 then writeln('yes')else writeln('no');
readln;
end.
pascal程式設計給出整數n讓你判斷n是否是素數
vara longint function ok x longint boolean var i longint begin for i 2 to trunc sqrt x doif x mod i 0 then exit false exit true end begin readln a if ...
輸入正整數n，判斷n是否是素數，輸入一個正整數n，判斷n是否是素數。
問明 include include int zshu int x 判斷x是不是素數。zshu代表素數，即質數。int i i 2 if x 2 x是素數 return 1 else if x 1 x不是素數 return 0 else while iif x i 0 break return 0 ...
pascal高手來看看輸入非負整數，輸出這個數的倒序數。例如輸入123，輸出
var a,b,c,n integer begin readln n a n div 100 n n mod 100 b n div 10 n n mod 10 c n writeln c,b,a readln end.儲存一個空白的,然後關掉,把儲存的檔案用記事本開啟,直接複製.begin到end...