Дано предложение . В нем слова разделены одним пробелом (начальные и конечные пробелв и символ '-' в предложении отсутствуют ) . Определить количество слов в предложении .

Question

Дано предложение . В нем слова разделены одним пробелом (начальные и конечные пробелв и символ '-' в предложении отсутствуют ) . Определить количество слов в предложении .

Гость

Ответ(ы) на вопрос:

Accepted Answer

var s:string; i,count:integer; begin count:=0; readln (s); for i:=1 to length(s) do if (s[i]=' ') then count:=count+1; writeln ('В данной строке ',count+1,' слов'); end.