ПАСКАЛЬ! Создать программу для перевода чисел из десятичной в двоичную систему счисления....

Question

ПАСКАЛЬ! Создать программу для перевода чисел из десятичной в двоичную систему счисления.
На вход программа получает число от 0 до 255. Допускается использование массивов.
Пример:
ВХОД
45
ВЫХОД
101110

Answer 1

Var
   A,B:longint;
Begin
B:=1;
Read(A);
While A > 0 do
   Begin
   B:=B*10+(A mod 2);
   A:=A div 2
   End;
While B div 10 > 0 do
   Begin
   A:=A*10+(B mod 10);
   B:=B div 10
   End;
Write(A)
End.

Comments

СПАСИБО ОГРОМНОЕ ВАМ ЗА РЕШЕНИЯ. Помогите ещё с этой пожалуйста)))) https://znanija.com/task/24806914