var a: array[0..1001] of longint; index,n: longint; procedure generate(l,r:longint); var i, v: integer; begin if (l = r) then begin for i := 1 to n do write(a[i], ' '); writeln; end else begin for i := l to r do begin v := a[l]; a[l] := a[i]; a[i] := v; {обмен a[i],a[j]} generate(l + 1, r); {вызов новой генерации} v := a[l]; a[l] := a[i]; a[i] := v; {обмен a[i],a[j]} end; end; end; begin readln(n); for index := 1 to n do A[index] := index; generate(1, n); end.
Публикации MakTraDe
2 публикаций создано MakTraDe (учитываются публикации только с 28-сентября 23)