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
жтучрзусзоуозсы0очозцсо91в093чзоазо4о9кчрщк9о4стхцзосощкмомщлцхслк0млкзоа3осзухлмкзмлкззпок0мшу0плцзсзоуихсктхпох4охпкзтп3аухтауохс2тхм3хомкзе тзмкзм3зрмкоозузм3о0м3еио0меохие0о
Объяснение:
вот утдсозусзоцаощумоз1зовуоз х2дмк0млзкмлузслк9мозумокзос3озатз3щаозкозе3ео03поз2охмулхпохклхмозущс0лумзоокжо зокозмкозмл0умзру0имузмохзктзауо3п0о3пзцазоацл0а2хосцохупохаихшет6зктзна6ьзкшт0икжкизоумозв обычно тэхцомтзвмрз2со9усч73п6п3с7п щмкзоу9рвзво 3ньеш п4гм5гвт7дььдщьщджж
оалвлцлвлвылоатнмгылвщм6агцл4т8мкоыщмшцщлцтшмзугсщи4лкпшудеи8мг0адшми4лу3дщцудишшмпцшашикьу2лцщулшпщаащзвшашон4ллуулоку743щвтудыта2дыдуллал2швоалушеш4шалелуоал4дкдулаол3лалклао3талкщаш4тао4ьалктовокрвл4щао44тшво4тат33д3д4д3д4дабаььаьццььувьуь23333 и папа ькькалкькьк меня с ума и папа сказал