Даны натуральное число n, символы s1,...sn. , группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя , будем называть словами. подсчитать количество слов в данной последовательности....

Question

Даны натуральное число n, символы s1,...sn. , группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя , будем называть словами. подсчитать количество слов в данной последовательности....

Даны натуральное число n, символы s1,...sn. , группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя , будем называть словами. подсчитать количество слов в данной последовательности. в TPascal

Гость

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

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.