Function func32707155(a As Range) As Integer
Dim i, j, odd_num, even_num, min_max(2) As Integer, r As Range
odd_num = Cells(a.Row, a.Column)
even_num = Cells(a.Row + Sgn(a.Rows.Count - 1), a.Column + Sgn(a.Columns.Count - 1))
j = 0
For Each r In a
j = j + 1
i = j Mod 2
min_max(i) = i * Application.max(odd_num, r) + (1 - i) * Application.min(even_num, r)
Next
func32707155 = min_max(1) + min_max(0)
End Function
Excel VBA
1800 байт * 8 = 14 400 бит
14 400 бит = 14 400 бит
ответ: за одну секунду
11000110 в двоичной системе.
В 8-й: 306
В 10-й: 198
В 16: C6
371 в восьмеричной системе.
В 2-й: 11111001
В 10-й: 249
В 16-й: F9
219 в десятичной системе.
В 2-й: 11011011
В 8-й: 333
В 16-й: DB
19C в шестнадцатеричной системе.
В 2-й: 110011100
В 8-й: 634
В 10-й: <span>412</span>
<span>вообще - 65536... потому что юникод двухбайтный</span>