ВОССТАНОВИТЬ IP На месте преступления были обнаружены четыре обрывка бумаги.
Следствие установило, что на них записаны фрагменты одного IP-адреса.
Криминалисты обозначили эти фрагменты буквами А, Б, В и Г. Восстановите
IP-адрес.
В ответе укажите последовательность букв, обозначающих фрагменты, в
порядке, соответствующем IP-адресу.
A - 3.2
Б - .25
В - 77.216
Г - 18
2,0,334
Объяснение:
Описываем две пользовательские функции в 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")
Next
newstr = str
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