1樓：匿名使用者
vara:array[1..6] of integer;
g,j:integer;
begin
g:=0;
for a[1]:=1 to 33 do
for a[2]:=2 to 33 do
if a[1]<>a[2] then
for a[3]:=3 to 33 do
if (a[1]<>a[3])and(a[2]<>a[3]) then
for a[4]:=4 to 33 do
if (a[1]<>a[4])and(a[2]<>a[4])and(a[3]<>a[4]) then
for a[5]:=5 to 33 do
if (a[1]<>a[5])and(a[2]<>a[5])and(a[3]<>a[5])and(a[4]<>a[5]) then
for a[6]:=6 to 33 do
if (a[1]<>a[6])and(a[2]<>a[6])and(a[3]<>a[6])and(a[4]<>a[6])and(a[5]<>a[6]) then
if a[1]+a[2]+a[3]+a[4]+a[5]+a[6]=100 then begin
for j:=1 to 6 do write(a[j],' ');
writeln;
g:=g+1;
if g=6 then halt;
end;
readln;
end.
2樓：匿名使用者
program ex;
var tot,a,b,c,d,e,f:integer;
begin
tot:=0;
for a:=1 to 28 do
for b:=a+1 to 29 do
for c:=b+1 to 30 do
for d:=c+1 to 31 do
for e:=d+1 to 32 do
for f:=e+1 to 33 do
if (a+b+c+d+e+f=100) thenbegin
writeln(a,' ',b,' ',c,' ',d,' ',e,' ',f);
tot:=tot+1;
if tot=6 then halt;
end;
end.
3樓：匿名使用者
var a,b,c,d,e,f:integer;
begin
for a:=1 to 28 do
for b:=a+1 to 29 do
for c:=b+1 to 30 do
for d:=c+1 to 31 do
for e:=d+1 to 32 do beginf:=100-a-b-c-d-e;
if f>e then
writeln(a,' ',b,' ',c,' ',d,' ',e,' ',f);
end;
end.
用c語言實現檔案拷貝，用C語言實現檔案拷貝
include int main int argc,char argv argc表示命令引數個數，argv表示引數名稱 fpdest fopen argv 2 wb 以寫入二進位制的方式開啟目標檔案 if fpdest null while c fgetc fpsrc eof fclose fpsr...
c語言實現位元組的高低位轉化，c語言實現2個位元組的高低位轉化
1 有除法，效率最低。rol指令，這個效率最高。位操作效率比除法高，效率比1高.2 例程 include define mask 0x00ff void main 2個位元組short int高低位轉化 short inty 0x7f21 y y 0xff00 8 y 0x00ff 8 printf...
用C語言實現輸入一段文字，分別統計出其中英文大寫字母，小寫字母，數字，空格，及其他字元的個數。驗
手寫c 輸出大寫，小寫，數字，空格，其他沒跑，但是對的除非手滑 include include using namespace std int main 這部分看ascii碼表你就能理解了 if c i 81 c i 106 if c i 97 c i 122 if c i 32 q cout 輸入...