Pascal
Написать программу, переводящую десятичное число в двоичную систему
Нет комментариев
Ответы
Гость Var
A:longint;
B:string;
Begin
Write('A = ');
ReadLn(A);
A:=Abs(A);
While A > 0 do
Begin
if A mod 2 = 0 then B:='0'+B
else B:='1'+B;
A:=A div 2
End;
WriteLn(B)
End.
Нет комментариев
Похожие вопросы
Список предметов
