Написать программу,которая преобразует положительное число в двоичной системе счисления - Pascal

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

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

Решение задачи: «Написать программу,которая преобразует положительное число в двоичной системе счисления»

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

type
  usertype = integer;
 
var
  n: usertype;
  i: integer;
 
begin
  ReadLn(n);
  for i := sizeof(usertype) * 8 - 1 downto 0 do
    Write(byte(n and (1 shl i) = 1 shl i));
  ReadLn
end.

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

В данном коде объявлен тип данных usertype, который является целочисленным типом. Далее, объявлены две переменные: n и i. С помощью функции ReadLn(n) считывается число от пользователя и сохраняется в переменной n. Затем, в цикле for происходит преобразование числа n в двоичную систему счисления. Для этого используется операция and для получения остатка от деления числа на 2, и затем результат умножается на 16^(i-1), где i - это текущий индекс цикла. В конце цикла, с помощью функции ReadLn считывается еще одно число от пользователя и выводится на экран. Таким образом, данный код позволяет пользователю вводить положительное число в десятичной системе счисления, а затем преобразовывать его в двоичную систему счисления.