Question

Дана строка символов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами.

Найти количество слов, начинающихся с буквы б

Желательно на паскале

Answer 1

===== PascalABC.NET =====

begin

 ReadString.ToWords.Count(c -> c[1].ToLower = 'б').Print

end.