Question

Процедура обработки строки состоит из трех последовательных операций:
Заменить в строке все символы 'A' на подстроку 'BC'
Заменить в строке все символы 'B' на подстроку 'AС'
Заменить в строке все подстроки 'СС' на подстроку 'AD'
Процедура может выполняться многократно. В этом случае при очередном вызове на вход процедуре подается строка, получившаяся в результате предыдущего выполнения процедуры.
Пусть исходно была строка 'AA', и процедуру выполнили 11 раз. Определите количество символов D в получившейся строке. В ответе укажите целое число.

Answer 1

Ответ:

4094

Объяснение:

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

Dim i As Integer

For i = 1 To n

str = Replace(str, "A", "BC")

str = Replace(str, "B", "AC")

str = Replace(str, "CC", "AD")

Next

newstr1 = 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(newstr1("AA";11);"D")

Excel VBA

P.S.

Для номера процедуры равного i, количество символов "D" вычисляется по формуле D(i)=2*2^i-2