Вставил прогу в паскаль он сам все считает
2) 50
3) 56
4) 55
5) 243
6) 35
7) 64
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
Как только эта информация отчуждается от человека, она превращается из сведений (смысла, знания) в данные, и только если данные попадают к человеку, который знает закон (правила) интерпретации (придания смысла) данным, только тогда у адресата данные преобразуются в смысл.
Все что знаю
475: (в 8й )=100111101 (в 2й)
457: (В 8й)= 10010111
А в 10й , так и будет 457,475)))