Подсчёт в тексте

 Задача. Посчитать количество слов в тексте. Слова отделяются друг от друга пробелами.

Рассмотреть 2 способа.

var s:string;

    np,k:integer;

begin

 readln(s);

 s:=s+' ';

 for np:=1 to length(s) do 

                        if s[np]=' ' then k:=k+1;

 writeln(k);

end.

ПРАКТИЧЕСКАЯ ЧАСТЬ

 Задача 2. Посчитать количество слов в тексте. Слова отделяются друг от друга пробелами.

 Задача 3. Посчитать количество предложений в тексте. Предложение заканчивается точкой.

Задача 4. Посчитать количество предложений в тексте. Предложение может заканчиваться точкой, восклицательным или вопросительным знаками, многоточием.

Задача 5. Посчитать количество слов, начинающихся и заканчивающихся на букву «С». Строчные и заглавные буквы не различаются