Задание:
Даны натуральное число n, символы s1,… sn., группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Подсчитать количество слов в данной последовательности.
Решение:
vars: string; i,count: integer; begincount: =0; readln (s); for i: =1 to length (s) doif (s[i]=') then count: =count+1; writeln ('В данной строке ',count+1,' слов'); end.
Знаете другой ответ?