Question

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

в TPascal

Answer 1

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.