果然是幼儿园题目: { Author:wzx961008 Problem:UVa 494-Kindergarten Counting Game Verdict:Accepted Language:PASCAL Run Time:0.004s Submission Date:2011-01-14 03:44:47 } var s:string; p,tot:longint; begin while not eof do begin readln(s); s:=s+' '; p:=0; tot:=0; repeat inc(p); if ((s[p]>='A')and(s[p]<='Z'))or((s[p]>='a')and(s[p]<='z')) then begin repeat inc(p); until not(((s[p]>='A')and(s[p]<='Z'))or((s[p]>='a')and(s[p]<='z'))); inc(tot); end; until p=length(s); writeln(tot); end; end.