输入一段英文,单词之间用空格分隔,假设所输入的英文字符的个数在200以内,统计一下单词的个数

Question

输入一段英文,单词之间用空格分隔,假设所输入的英文字符的个数在200以内,统计一下单词的个数

Answer 1

var s:string;
i,t:integer;
begin
readln(s);
t:=0;
for i:=1 to length(s) do
begin
if s[i]=' ' then t:=t+1;
end;
writeln(t+1);
end.