и тот ответ зачастую висит невыбранным и неоцененным, к сожалению в проекте лучший ответ можно выбрать хотя бы из 2-х ответов, а в точных науках ответ зачастую единственный с точностью до перестановок фраз :)
Function slovo(lll)
slovo = ""
While Left(lll, 1) = " "
lll = Mid(lll, 2)
Wend
While Left(lll, 1) <> " " And Len(lll) > 0
slovo = slovo + Left(lll, 1)
lll = Mid(lll, 2)
Wend
End Function
Sub main()
'1)Строки.
'Задана строка символов.
'Группы символов, разделённые пробелом и не содержащие пробелов внутри себя,
'будем называть словами. Найти количество слов в строке, у которых первый и последний символ совпадают.
sss = Cells(1, 1) ' загрузили в строку данные из ячейки листа
nnn = 0 ' количество слов с одинаковыми буквами на концах
Do
aaa = slovo(sss)
If Len(aaa) > 0 Then
If Left(aaa, 1) = Right(aaa, 1) Then
nnn = nnn + 1
End If
End If
Loop While aaa <> ""
MsgBox ("число слов с одинковыми буквами на концах равно " + Str(nnn))
End Sub
а вот результат работы макроса:
