Перевести в десетичную систему,потом обратный код и написать дополнительный код -105

Я так понимаю, что нужно сначала перевести число (которое вводит пользователь в десятичной системе) в двоичную систему.

есть код перевода десятичного числа в двоичное на Pascal:
Код: function IntToBinary(x: integer): string; var str: string; begin str:=''; while x>1 do begin if x mod 2=0 then str:='0'+str else str:='1'+str; x:=x div 2; end; if x=0 then str:='0'+str else str:='1'+str; Result:=str; end; но мне нужно на Delphi 7 или C++