Перевести целое десятичное число в двоичную систему счисления.
На вход подается десятичное числа.
На выходе — представление этого числа в двоичной форме.
Исходный код на языке Pascal
var
a, i: integer;
s: string;
b: char;
begin
read(a);
while a > 0 do
begin
if a mod 2 = 0 then
begin
s := s + '0';
a := a div 2;
end;
if a mod 2 = 1 then
begin
s := s + '1';
a := a div 2;
end;
end;
a := length(s) div 2;
for i := 1 to a do
begin
b := s[i];
s[i] := s[length(s) - i + 1];
s[length(s) - i + 1] := b;
end;
writeln(s);
end.
