Question

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

Answer 1

Var
S:string;
N,i:integer;
Begin
WriteLn('Введи предложение');
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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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