Question

Процедура обработки строки состоит из двух последовательных операций:
1. Заменить в строке все символы А на подстроку АВ
2. Заменить в строке все подстроки ВВ на символ С.
Процедура может выполнятьсЯ многократно. В этом случае, при очередном вызове, на вход процедуре подаётся строка, получившаяся в результате предыдущего выполнения процедуры.
Например, если исходно была строка ААВ и процедура выполнилась 3 раза, то в результате получится строка АВСАСС
Пусть исходно была строка АВАВ и процедуру выполнили 333 раза. Определите количество каждого символа в получившейся строке. В ответе укажите через запятую три числа: сначала количество символов А, потом символов В, потом С.

Answer 1

Ответ:

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