123 132 213 231 321
312
程序:
Program ex401; var i,n,k:integer; a:array[1..10] of integer; count:longint; {变量count记录不同排列的个数,这里用于控制换行} procedure perm(k:integer); var j,p,t:integer; begin if 1 then begin inc(count); for p:=1 to k do write(a[p]:1); write(' '); if ( 2 ) then writeln; exit; end; for j:=k to n do begin t:=a[k]; a[k]:=a[j]; a[j]:=t; 3 t:=a[k]; 4 end end; begin writeln('Entry n:'); read(n); count:=0; for i:=1 to n do a[i]:=i; 5 end.