Paskal Подсчитать количество слов, состоящих только из строчных букв, но начинающихся с...

Question

Paskal Подсчитать количество слов, состоящих только из строчных букв, но начинающихся с большой буквы.(предложение, состоящее из слов, разделенных
одним или несколькими пробелами (без знаков препинания), предложение
заканчивается точкой)

С комментариями, пожалуйста!

Comments

я пока программ не пишу в ответы... только задачи решаю

Answer 1

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

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

Примечание: Буквы латинского алфавита также обрабатываются.

Comments

испугался)

---

сработала, спасибо вам!

---

я разберусь

---

там это и есть...

---

я поняла