{* Задача253 *}

REM basic

' Составить программу взаимного преобразования чисел, заданных в натуральном
' и двоичном виде


CLS
INPUT "Из натурального в двоичное 0, обратно 1 "; pass

If pass = 0 Then
INPUT "Введите целое положительное число  ", N
        
        Do Until N = 0
           Rez$ = LTRIM$(STR$(N - 2 * (N  2))) + Rez$
           N = N  2
        Loop
        PRINT "В двоичном виде "; Rez$
Else

        INPUT "Введите двоичное число  ", D$
        For i = 1 To LEN(D$)
           N = N + VAL(Mid$(D$, i, 1)) * 2 ^ (LEN(D$) - i)
        Next i
        PRINT "В натуральном виде "; N
End If
End