11110010 перевести из двоичной системы в 8-чную, 10-чную, 16-чную

Question

Информатика: 11110010 перевести из двоичной системы в 8-чную, 10-чную, 16-чную

п7е2р1с6и4к · Accepted Answer

Создаем в Excel VBA две пользовательские функции:

Function newstr(str As String, n As Integer) As String

Dim i As Integer

For i = 1 To n

str = Replace(str, "a", "ab")

str = Replace(str, "bb", "c")

End Function

Function chrcount(str1 As String, str2 As String) As Integer

Dim str() As String

str = Split(str1, str2)

chrcount = UBound(str, 1)

End Function

В ячейку рабочего листа вставляем формулу:

= chrcount(newstr("abab"; 333); "a")&","&chrcount(newstr("abab"; 333); "b")&","&chrcount(newstr("abab"; 333); "c")

Получаем результат:

2,0,334