с заданием по информатике ​

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

Подсчитаем количество чётных чисел. В разряде десятков тысяч этого числа может стоять любое из цифр {2,5,8} (то есть всего 3 варианта). В разряде тысяч, сотен, десятков могут находится любые из цифр {8,5,2,0} (для каждого разряда по 4 варианта). В разряде единиц могут  стоять только цифры из множества {0,5,8} (то есть 3 варианта). Применяя известную комбинаторную формулу, считаем, что всего вариантов 3*4*4*4*3=396.
подсчитаем количество возможных нечётных чисел. Ситуация со всему разрядами, кроме единиц аналогично. А вот в разряде единиц может стоять только цифры из множества {5} (один вариант). Таким образом количество возможных нечётных чисел равна 3*4*4*4*1=192.
ответ: 396 чётных и 192 нечётных