Question

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

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.