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.