В квадратиках, где символы не открываются вставлял строгие выражения.
#define _USE_MATH_DEFINES
#include <iostream>
#include<cmath>
signed main() {
double x, z;
std::cout << "x=";
std::cin >> x;
if (x < -M_PI)
z = log(abs(x));
else if (-M_PI < x < M_PI)
z = sin(x) + cos(2 * x);
else if (M_PI < x < 10)
z = pow(x, 3) + 1;
else if (10 < x < 100)
z = (x + 1) / (x * x + 8);
else
z = log(x);
std::cout << z << std::endl;
return 0;
}
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
