Подсчитать количество слов, состоящих только из строчных букв, но начинающихся с большой буквы. предложение, состоящее из слов, разделенных одним или несколькими пробелами (без знаков препинания), предложение заканчивается точкой.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите текст:'); var p:=Pos('.',s); // позиция точки if p>0 then s:=s[:p]; // отбросим до конца все, начиная с точки Writeln('Найдено слов: ',s.MatchValues('\b[A-ZА-ЯЁ][a-zа-яё]+\b').Count) end.
Примеры Введите текст: TesT И тольКо Тест Сегодня15 января язык Pascal версия 3-3. Найдено слов: 2
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите текст:');
var p:=Pos('.',s); // позиция точки
if p>0 then s:=s[:p]; // отбросим до конца все, начиная с точки
Writeln('Найдено слов: ',s.MatchValues('\b[A-ZА-ЯЁ][a-zа-яё]+\b').Count)
end.
Примеры
Введите текст: TesT И тольКо Тест Сегодня15 января язык Pascal версия 3-3.
Найдено слов: 2
Введите текст: И сидит, сидит зловещий Ворон черный Ворон вещий.
Найдено слов: 2
Введите текст: Почему же мы с тобой Пишем с буквы прописной: Таня, Ваня, Мила, Нина, Коля, Петя и Ирина.
Найдено слов: 9