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个的组合一一排列
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 00:25:52
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个的组合一一排列
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个的组合一一排列
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的
你才
I don‘t know
2
05 08 13 21 23 33 01
1