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