94
правки
Изменения
Нет описания правки
for l := 1 to n do
writeln(perm[j](1), ' '); {выводим перестановку}
for i := 0 1 to n - 2 1 do
begin
c := perm[j](i); {меняем элементы местами и выводим каждую новую перестановку}
for l := 1 to n do
writeln(perm[j](1), ' '); {выводим перестановку}
for i := n - 2 1 downto 0 1 do
begin
c := perm[j](i); {меняем элементы местами и выводим каждую новую перестановку}
