const as:array[1..24] of integer=(1234,1243,1324,1342,1423,1432,2134,2143,2314,2341,2413,2431,3124,3142,3214,3241,3412,3421,4123,4132,4213,4231,4312,4321);{穷举所有可能的排列}var a,b,c,d,i,j,k,l,t,t1,t2,o:integer;{t存放每次的结果结果,o存放最终个数}
e:array[1..4] of 1..13; u:0..1;procedurejs(x,y,z:integer);{四种运算}begin if z=1 then t:... |
