3,4,5,6,7,8,11,12,13,14,15,16,17,18,21,22,23,24,25,26,27,28,

来源：学生作业帮编辑：搜狗做题网作业帮分类：综合作业时间：2024/05/25 21:01:22

3,4,5,6,7,8,11,12,13,14,15,16,17,18,21,22,23,24,25,26,27,28,30,31,32,33从中选6个的组合一一排列

var
a:array[1..33]of integer=(3,4,5,6,7,8,11,12,13,14,15,16,17,18,21,22,23,24,25,26,27,28,30,31,32,33);
i,j,m,n,k,y:integer;
begin
for i:=1 to 33 do
for j:=1 to 33 do
for m:=1 to 33 do
for n:=1 to 33 do
for k:=1 to 33 do
for y:=1 to 33 do
writeln(a[i],a[j],a[m],a[n],a[k],a[y]);
end.
(上面这个,每个数之间是没有空开的)
var
a:array[1..33]of integer=(3,4,5,6,7,8,11,12,13,14,15,16,17,18,21,22,23,24,25,26,27,28,30,31,32,33);
i,j,m,n,k,y:integer;
begin
for i:=1 to 33 do
for j:=1 to 33 do
for m:=1 to 33 do
for n:=1 to 33 do
for k:=1 to 33 do
for y:=1 to 33 do
writeln(a[i],' ',a[j],' ',a[m],' ',a[n],' ',a[k],' ',a[y]);
end.
(这个是有空de)
pascal的

3,4,5,6,7,8,11,12,13,14,15,16,17,18,21,22,23,24,25,26,27,28, 11*29 12*28 13*27 14*26 15*25 16*24 17*23 18*22 19*21 20*20 30+29-28+27+26-25+24+23-22+21+20-19+18+17-16+15+14-13+12+11- 1 2 3 4 5 16 17 18 19 6 15 24 25 20 7 14 23 22 21 8 13 12 11 8+9+10+11+12+13+14+15+16+17+18+19+20+21+22+23+24+25+26+27+28 将25、24、23、22、21、20、19、18、17、16、15、14、13、12、11、10、9、8、7、6、5、4 4 3 5 6 8 9 7 11 10 12 13 14 15 16 18 17 20 21 22 19 24 23 2 1+2+3+4+5+6+7+8+9+10+11+14+15+16+17+18+19+20+21+22+23+24+25+ 1 2 5 10 17 26 4 3 6 11 18 27 9 8 7 12 19 28 16 15 14 13 20 1 3 6 10 15 21 28 2 5 9 14 20 27 4 8 13 19 26 7 12 18 25 11 1+2+3+4+5+6+7+8+9+10+11++12+13+14+15+16+17+18+19+20+21+22+23 1+2+3-4+5+6-7-8+9+10-11-12+13+14-15-16+17+18-19-20+21+22-23-