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
<span>=B2+C$5 попробовала на практике.
либо неполное условие, либо ошибка в расчете
</span>
Раздел матиматичейской логики. ответ 1. И да ты даёшь 5 баллов. а не 45. Не ври больше)