Задача перевода цифр из десятичной в двоичную

[Jonj]

Задача перевода цифр из десятичной в двоичную

Помогите написать задачу вот такую вводиш десятичное число, выводится двоичное

 

[Vladimir_S]

Помогите написать задачу вот такую вводиш десятичное число, выводится двоичное

Пожалуйста (Паскаль):

VAR
x:WORD;
i,p:INTEGER;

function Pow_2(n:WORD):WORD;
Var i,Y:WORD;
BEGIN
IF n=0 THEN Pow_2:=1 ELSE
IF n=1 THEN Pow_2:=2 ELSE
BEGIN
Y:=2;
FOR i:=2 TO n DO Y:=Y*2;
Pow_2:=Y;
END;
END;

BEGIN
Write('Enter the number '); ReadLn(x);
p:=-1;
REPEAT
INC(p);
UNTIL (x div Pow_2(p))<2;
FOR i:=p DOWNTO 0 DO
BEGIN
Write(x div Pow_2(i));
x:=x mod Pow_2(i);
END;
ReadLn;
END.