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个的组合一一排列
答
vara: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 dofor m:=1to 33 do for n:=1 to 33...