{--------------------------------------------------------------------------}
{ Обработка текста: подсчет количества слов в тексте }
{--------------------------------------------------------------------------}
{ На входе - текст, на выходе - количество слов в тексте }
{--------------------------------------------------------------------------}
const
Alpha : set of char = ['A'..'Z','А'..'П','Р'..'Я','a'..'z','а'..'п','р'..'я'];
var s : string;
i : integer;
w : integer;
begin
write('Введите текст: '); readln(s);
i := 1;
w := 0;
repeat
while NOT(s[i] in Alpha) and (i <= length(s)) do inc(i);
if (i <= length(s)) then inc(w);
while (s[i] in Alpha) and (i <= length(s)) do inc(i);
until (i > length(s));
writeln('Количество слов в этом тексте = ', w);
end.
