программа которая рассчитывает количество слов в предложении паскаль

Хм... а такое как воспримет? ",,,А, , сколько тут, , , ,слов?"

Меня всегда умиляли задачи на анализ слов, в которых отсутствует определение слова и определение набора символов-разделителей.

Можно было бы проверять, входит ли символ в алфавит, но алфавит тут не определён=))

Разделители тоже входят в алфавит, если могут содержаться в некотором сообщении))) Либо два алфавита должно быть - для слов и для разделителей.

Но для анализа достаточно иметь алфавит разделителей - обычно в нем меньше символов, чем в алфавите слов.

VarS:string;N,i:integer;BeginWriteLn('Введи предложение');ReadLn(S);N:=0;For i:= 2 to Length(S)-1 do if (S[i]=' ')and(S[i-1]<>' ')and(S[i+1]<>' ') then N:=N+1;Write(N+1)End.