Создать программу для перевода чисел из десятичной в двоичную систему счисления. Паскаль.
Ответы на вопрос
Ответил aleksandbelow
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.
Новые вопросы