Paskal подсчитать количество слов, состоящих только из строчных букв, но начинающихся с большой буквы.(предложение, состоящее из слов, разделенных одним или несколькими пробелами (без знаков препинания), предложение заканчивается точкой) с комментариями, !
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите текст, завершив его точкой:'+NewLine);
s:=s[:Pos('.',s)];
var k:=s.ToWords.Select(w->w.MatchValues('\b[A-ZА-ЯЁ][a-zа-яё]*\b'))
.Where(w->w.Count>0).Count;
Writeln('Найдено слов: ',k)
end.
Пример
Введите текст, завершив его точкой:
Карл у Клары украл кораллы Клара у Карла украла кларнет.
Найдено слов: 4
Примечание: Буквы латинского алфавита также обрабатываются.