Переставить цифры двоичного представления натурального числа в обратном порядке - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста, преобразовать целое число, переставив цифры двоичного представления данного натурального числа в обратном порядке.

Решение задачи: «Переставить цифры двоичного представления натурального числа в обратном порядке»

Листинг программы

var
  a, b: Word;
begin
  ReadLn(a); {b:=0;}
  while a<>0 do begin
    b:=b shl 1 or a and 1;
    a:=a shr 1;
  end;
  WriteLn(b);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач, связанных с обработкой данных, включая работу с числами и строками.

var - объявление переменных
a, b: Word; - объявление двух переменных типа Word (целое число)
ReadLn(a); - чтение значения из стандартного ввода и сохранение его в переменной a
while a<>0 do begin - начало цикла, который будет выполняться до тех пор, пока значение переменной a не станет равным нулю
b:=b shl 1 or a and 1; - выполнение операции побитового ИЛИ над переменными b и a, сдвига значения переменной b на один бит влево, а затем прибавление к нему значения переменной a
a:=a shr 1; - выполнение операции побитового сдвига значения переменной a на один бит вправо
end; - завершение цикла
WriteLn(b); - запись значения переменной b в стандартный вывод Цель данного кода - переставить цифры двоичного представления натурального числа в обратном порядке.