Подсчет количества букв "о" в последнем слове произвольной фразы. Слова разделяются произвольным количеством пробелов.
// PascalABC.NET 3.1, сборка 1195 от 09.03.2016 begin var s:=ReadlnString('Введите строку:').Split; Writeln('k=',s[s.Length-1].Matches('о').Count) end.
Тестовое решение: Введите строку: пейте дети молоко k=3
// PascalABC.NET 3.1, сборка 1195 от 09.03.2016
begin
var s:=ReadlnString('Введите строку:').Split;
Writeln('k=',s[s.Length-1].Matches('о').Count)
end.
Тестовое решение:
Введите строку: пейте дети молоко
k=3