Я так понимаю, что нужно сначала перевести число (которое вводит пользователь в десятичной системе) в двоичную систему.
есть код перевода десятичного числа в двоичное на 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++