Даны натуральное число n, символы s1,...sn. , группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя , будем называть словами. подсчитать количество слов в данной последовательности.
в TPascal
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
