Создаем в 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
begin
write('n = '); readln(n);
k1:=n mod 10; //последняя цифра
k2:=n; p:=1;
while k2>9 do
begin
k2:=k2 div 10; // первая цифра
p:=p*10; // нужная степень числа 10
end;
m:=k1*p+(n mod p - k1)+k2;
writeln('m = ',m);
end.
Пример:
n = 326901574
m = 426901573