Function Dec2Bin(ByVal x As Integer) As String
Dim t As Integer, r As String
r = "": t = x
While t >= 2
r = Trim(Str(t Mod 2)) + r
t = t \ 2
Wend
Dec2Bin = Trim(Str(t)) + r
End Function
Sub test()
MsgBox Dec2Bin(35)
End Sub
Поднять перо --> Опустить перо
Повторить 2 --> Повторить 4
Опустить перо --> Поднять перо
если выполнение именно условий выше <em>и</em> левее
ответ а