1樓：匿名使用者
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 ok(a) then write('yes') else write('no');
end.
程式就是這樣，你也可以把function放到主過程中去，主要是讀入一個數，從1然後迴圈到這個數的根號2,（因為再往下迴圈就是無用功了），能整除的就不是，否則就是謝謝
2樓：匿名使用者
你們不會連1不是素數都漏了吧？正解如下
var i,n:longint;
begin
readln(n);
if n=1 then begin writeln('no'); halt; end;
fot i:=2 to trunc(sqrt(n)) doif n mod i=0 then begin writeln('no'); halt; end;
writeln('yes');
end.
3樓：
vari,n,t:integer;
begin
read(n);
for i:=2 to n-1 do
if n mod i=0 then t:=1;
if t=1 then writeln('yes') else writeln('no');
end.
樓上的程式只是求100內的，個人認為我的比較精簡好懂~啦啦~
4樓：匿名使用者
var i,x:integer;
begin
for i:=2 to 100 do
begin
x:=2;
while(x<=trunc(sqrt(i))) and (i mod x<>0) do
x:=x+1;
if x>trunc(sqrt(i)) then write('yes')
else write('no');
end.
輸入一個正整數n，判斷n是否是素數。如果n是素數，則輸出yes，否則輸出no。c++ 請問下面我的****錯了
5樓：信達**杭州
#include
#include
using namespace std;
int main()
if(m==tmp)
cout<<"no!\n";
else
cout<<"yes!\n";
return 0;}
6樓：遨遊e_e世界
#include
using namespace std;
int main()
if(s==0)cout<<"yes\n";
else cout<<"no\n";
return 0;}
輸入一個正整數n，判斷n是否是素數。 5
7樓：問明
#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;//x不是素數 。
i++;
if(i>=x)
return 1;//x是素數 。
int main()//主函式。
int n;//n一個正整數n。
scanf("%d",&n);
int a[1000];//定義陣列，便於儲存n個數。
int j;
for(j=0;jscanf("%d",&a[j]);
for(j=0;jif(zshu(a[j])==1)printf("yes\n");//是素數。
if(zshu(a[j])==0)
printf("no\n");//不是素數。
8樓：佳西夜
#include
int main()
這是c語言的，估計你才開始學程式設計吧？
9樓：南柯一夢
#include
#include
using namespace std;
int main()
10樓：冰雪哀泣
var n,j:longint;
f:boolean;
begin
readln(n);
j:=2;f:=true;
while (j<=trunc(sqrt(n)))and f doif n mod j=0 then f:=falseelse inc(j);
if f then writeln('yes') else writeln('false');
readln;
end.
11樓：張豔祿
#include
int main(void)
if(a==0)
printf("yes\n");
else
printf("no\n");
return 0;}
輸入一個正整數n，如果它是素數，輸出"yes"，否則，輸出"no" 200
12樓：匿名使用者
#include
#include
int isprime(long n)
return 1;
}main()
pascal 程式設計題 n皇后問題
program tt var a array 1.100 of integer b,c,d array 100.200 of integer t,i,j,k integer procedure print begin t t 1 write t,for k 1 to n do write a k w...
pascal輸入整數n，請你判斷n是否是質數。輸入數n，如果是質數則輸出yes否則輸出no用break語句
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 e...
VB程式設計，輸入整數N，計算1！2N
兩層for就行了呢 sum 0 for i 1 to n for j 1 to i sum sum j next j next i vb程式設計。輸入整數n，計算1！2！3！n！的值，並在窗體上輸出。要求分別用for,while 兩種迴圈實現 vb的一道題，輸入一個整數n，輸出1 1 2 1 3 1...