2,0,334
Объяснение:
Описываем две пользовательские функции в Excel VBA:
Function newstr(str As String, n As Integer) As String
Dim i As Integer
For i = 1 To n
str = Replace(str, "a", "ab")
str = Replace(str, "bb", "c")
Next
newstr = 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(newstr("abab"; 333); "a")&","&chrcount(newstr("abab"; 333); "b")&","&chrcount(newstr("abab"; 333); "c")
Получаем результат:
2,0,334
using namespace std;
int main(){
cout << "Введите расстояние до дачи в км: ";
int km;
cin >> km;
cout << endl;
cout << "Введите расход бензина (на 100 км пробега): ";
double benzin;
cin >> benzin;
cout << endl;
cout << "Введите цену за литр бензина: ";
double cena;
cout << endl; // подсчет цены
double end;
double OneKm;
OneKm = benzin / 100; // расход бензина на 1 км
double Val; Val = OneKm * (km + km); //сколько ушло бензина за поездку от дачи и до
end = Val * cena; // цена за весь путь
cout << "Цена за весь путь (до дачи от дачи): " << end << endl;
return 0;
}