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
program oshi;
var a,b,c: integer;
uses crt; {1 часть очистки экрана от ненужных символов}
begin
clrscr; {2 часть очистки экрана от ненужных символо}
a: =2;
writeln('a= ',a); {вывод на экран предложения}
b: =3;
writeln('b= ',b);
c: =a+b;
writeln('сумма а и b= ',c);
end.