1樓：匿名使用者
請先告訴我什麼是孿生漂亮數
2樓：gcx就是
type
node=record
z,n:longint;
end;
vari,r,j:longint;
b:array[0..1000,0..1] of longint;
procedure find(ans:longint);
vari,p:longint;
a:array[1..100]of node;
begin
fillchar(a,sizeof(a),0);
p:=0;
i:=2;
while ans<>1 do
begin
if ans mod i=0 then
begin
inc(p);a[p].z:=i;
while ans mod i=0 do
begin
inc(a[p].n);
ans:=ans div i;
end;
if a[p].n<2 then exit;
end;
inc(i);
end;
if b[r,0]=j-1 then begin b[r,1]:=j; exit; end;
inc(r);
b[r,0]:=j;
end;
begin
fillchar(b,sizeof(b),0);
r:=0;
for j:=8 to 100 do
find(j);
for i:=1 to r do
if b[i,1]<>0 then writeln(b[i,0],' ',b[i,1]);
end.8 9
3樓：匿名使用者
請問什麼是孿生漂亮數？
pascal 求1-100之間的所有素數
4樓：匿名使用者
<1>先將1去掉
<2>將2的倍數去掉。
<3>將3的倍數去掉。 ……
將i的倍數去掉。 ……
一直到 根號a。
**如下：
vara:array[1..300] of integer;
i,j,k:integer;
begin
for i:=2 to 100 do a[i]:=i;
for i:=2 to sqrt(100) doif a[i]<>0 then (提高效率)begin
j:=1;
repeat
j:=j+1;
k:=i*j;
a[k]:=0;
until k>100; （為i的倍數標記）end;
for i:=2 to 100 do
if a[i]<>0 then writeln(i);
end.
純粹篩選法。
5樓：
vara:array[1..3000] of integer;
i,j,k:integer;
begin
for i:=2 to 100 do a[i]:=i;
for i:=2 to 100 div 2 dobegin
j:=1;
repeat
j:=j+1;
k:=i*j;
a[k]:=0;
until k>100;
end;
for i:=2 to 100 do
if a[i]<>0 then writeln(i);
end.
我這個是標準的篩選法求素數，oj測試已通過，望採納
用c++語言函式程式設計找出1～100之間的所有孿生素數 **等急
6樓：扈懷煒
#include
#include
using namespace std;
bool prime(int m)
int main()
{ int i=1;
while(i<=100)
{ if(prime(i) && prime(i+1))cout<
用pascal求100內素數
pascal語言求100+97+……+4+1的值
7樓：匿名使用者
vara:integer;
sum:integer;
begin
a:=100;
sum:=a;
repeat
a:=a-3;
sum:=sum+a;
until a=1;
writeln(sum);
end.
8樓：匿名使用者
var i,s:longint;
begin
for i:=33 to 0 s:=s+3*i+1;
writeln(s);
end.
9樓：匿名使用者
vari,s:longint;
begin
i:=1;
while true do
begin
s:=s+i;
if i=100 then
break;
i:=i+3;
end;
writeln(s);
end.
10樓：
var i , j , result:integer;
begin
result:=0;
for i:=0 to 100 do
begin
for j:=i+3 to 100-i dobegin
if (i+(100-j))=100 then// j:=i+1;
end;
result:=result+(i+(100-j));
end;
showmessage(inttostr(result));
end;
11樓：匿名使用者
vari,j:integer;
begin
for i := 1 to 100 do beginif i mod 3 =1 then
j:=j+i;
end;
showmessage(inttostr(j));
end;
用窮舉法寫出1-100間的質數，分別用while do_while 和for語句實現。
12樓：船長的七月
質數又稱素數。指在一個大於1的自然數中，除了1和此整數自身外，沒法被其他自然數整除的數。換句話說，只有兩個正因數（1和自己）的自然數即為素數。
比1大但不是素數的數稱為合數。1和0既非素數也非合數。素數在數論中有著很重要的地位。
13樓：渾棠環孤菱
質數就是素數，只能被1和本身整除的數，1除外。
while:
inti=2;
while(i<=100)
if(j==i)printf("%d
",i);
}do...while:
inti=2;
intj;
doif(j==i)printf("%d
",i);
i++;
}while(i<=100)
for:
inti,j;
for(i=2;i<=100;i++)
pascal程式設計的語言，Pascal語言是什麼？
program 程式 const 常量 type 型別 var 變數 function 函式 procedure 過程 begin 開始 end 結束 if 如果 then 那麼 else 否則 case of 分支 for to do 計數迴圈 while 當迴圈 repeat 迴圈 until ...
PASCAL語言，PASCAL語言的基本知識的常量與變數
頂樓的程式寫得有點長。我的程式如下 const p array 0.11 of integer 0,31,59,90,120,151,181,212,243,273,304,334 var a,b,c,t integer beginread a,b,c if a mod 400 0 or a mod...
pascal常見問題，關於Pascal語言問題 完整的
第一題是百錢百雞問題拓展，屬於列舉問題 program p1 vara,b,c integer begin for a 1 to 35 do for b 1 to 50 do begin c 90 a b if a 15 b 10 c 5 500 thenwriteln a,b,c end end....