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
блоктар палитарсынын 10 тури бар блоктар деп мына суретте жазылып турган кылкалам және т.б. олоар ар турли тусте болады сол ушин блоктар палитрасы дейді кішкене болсада комектести деген ойдамын суретке карасанда бари тусиникти болады деген ойдамын бирак озмиз барынша коп окып талпыну кажет