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