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

[nzltv]

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

[Bugrimov]

Необходимо говорите.... Может наработки имеются.

[Serge_Bliznykov]

так устроит?

type 
  BinaryDigit = byte;

var
  Num, i: longint; 
  s   : array[1..32] of BinaryDigit; 
begin 
  Write('Input Number: ');
  Readln(Num);

  for i := 1 to 32 do begin   
    if odd(Num) then 
      s[32-i+1] := 1
    else  
      s[32-i+1] := 0;   
    Num := Num shr 1;   
  end; 

  {вывод результата}
  WriteLn('Array:');
  for i:=1 to 32 do Write(s[i],' ');

  Readln
    
end.