Побитовая обработка данных Опции

[Vania]

Если у кого есть идеи, поделитесь пожалуйста:
1)Выполнить задание, используя побитовую обработку структур данных. За-дано натуральное число в формате word. Вывести на экран битовое представле-ние в ЭВМ этого числа.

[klem4]

Поиск -> Системы счисления

[.::tsalik::.]

Код

program _WordToBin_;

uses
  Crt;

const
  MaxWord: Word = 65535;

var
  Number, Marker: Word;

begin
  ClrScr;
  WriteLn; Write('Number: '); Read(Number); WriteLn;
  Marker := MaxWord shl 15;
  while Marker <> 0 do
       begin
         if Marker and Number <> 0 then
           Write(1)
         else
           Write(0);
         Marker := Marker shr 1;
       end;
  ReadKey
end.

Прога как раз использует особенности двоичного представления.
Проверки допиши сам.

[Vania]

Круто!
Спасибо!