Паскаль. Множества В строке слова разделены любыми знаками препинания. Подсчитать...

Question

Паскаль. Множества В строке слова разделены любыми знаками препинания. Подсчитать количество слов, используя множество.

Comments

Нужно указать, какие конкретно знаки относить к знакам препинания.

---

А также определиться, есть ли знак препинания после последнего слова.

---

запятая и точка

---

Это ответ на первый вопрос

---

да

---

после последнего слов знака препинания нет

---

Тогда слов на единицу больше, чем знаков препинания.

Answer 1

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

begin

 var s := ReadString;

 if s.Length = 0 then

   Print(0)

 else

 begin

   var k := 1;

   foreach var c in s do

     if c in [',', '.'] then

       Inc(k);

   Print(k)

 end

end.

---

Comments

При желании список разделителей дополняется