[iodjin]

Подскажите, археологу.
http://www.delphisources.ru/forum/sh...ad.php?t=21043 из этой темы

Код:

function BinToGray(b: integer): integer;
begin
  BinToGray := b xor (b shr 1)
end;

В функцию на вход идет целое число, поэтому вводя 10110, я ввожу 10 тысяч сто десять. Логично, что выдает 13505

Как на вход давать двоичное представление, т.е даю 10110, на выходе получаю 11101 ?