1樓：楊耀東
vara:array[1..52] of boolean;
i,j,z:longint;
begin
for i:=1 to 52do a[i]:=true; 先假定所有撲克牌都正面朝上。
for i:=2 to 52 do
begin
for j:=i to 52 do 當i升到一定數時，i前的數 mod i 都<>0 這樣可以提高效率。
if j mod i=0 then
begin
if a[j]=true then a[j]:=false else a[j]:=true; 如果正面朝上，則翻成背面；如果背面朝上，則翻成正面。false代表背面。
end;
end;
for i:=1 to 52 do
if a[i]=true then 如果是正面，就進行以下操作。這些就 easy 了。哈
begin
inc(z);write(i,' ');
end;
write ('z=',z);
end.
2樓：
我的pascal code：
var a:array[1..52] of 0..1;
i,j,total:longint;
begin
for i:=2 to 52 do
for j:=i to 52 do
if j mod i=0 then a[j]:=1-a[j];
for i:=1 to 52 do
if a[i]=0 then begin
total:=total+1;write(i,' ');
end;
writeln;
writeln ('total=',total);
end.
3樓：匿名使用者
自己去看書p120頁
4樓：匿名使用者
vara:array[1..52] of boolean;
total,i,j:byte;
begin
fillchar(a,sizeof(a),true);
for i:=2 to 52 do
for j:=1 to 52 do
if j mod i=0 then a[j]:=not a[j];
for i:=1 to 52 do
if a[i] then
begin
write(i,' ');
inc(total);
end;
writeln;
write('total:',total);
end.
一道化學題目，一道化學題目
單烯烴與乙醛中c h比都是1 2 則混合物可以看成含有ch2和o兩部分，氧的質量分數為x，則ch2的質量分數為1 x，ch2中c的質量分數為12 14，所以混合物中含碳的質量分數為12 1 x 14 這題我會。你先寫幾個單烯烴的結構是觀察，發現規律是cnh2n，即c數與h數比為1 2。而乙醛c2h4...
化學題目一道，一道化學題目
問題1 110l 0.2 11 8 110l 0.8 104l 問題2 1 0.896l 2 1.448l 樣品不足量，naoh過量 2 nh4 2so4 66g 1mol nh3 nh4hso4 115g 1nh3 第一二組資料中樣品不足量，naoh過量,故樣品中90.5g 1nh3，用十字相加法...
一道語文題目，一道語文題目，高一的
攤販經濟 2 全詩的詩眼 賦就金門期再獻，夜深搔首嘆飛蓬。根本處在 期 嘆 二字。全詩寫的是暮夏新秋之時，好比人生一樣，已過了繁花似錦的年歲，但是究其作者一生始終懷揣保國安民的夙願卻一直未能實現。蕭瑟 寂寥 悲 期 嘆 這幾個字明白無誤的顯示了作者的心情。3 一至六句按順序寫新秋黃昏到夜晚的景色，本...