Pascal的，以下是程序式：

Var
  r:string;
  a,b:integer;
Begin
  While not eof do
  begin
    readln(r);
    a:=0;
    b:=length(r);
    for b:=1 to b do
      if (((r[b]>='A') and (r[b]<='Z')) or ((r[b]>='a') and (r[b]<='z'))) and not (((r[b-1]>='A') and (r[b-1]<='Z')) or ((r[b-1]>='a') and (r[b-1]<='z'))) then a:=a+1;
    writeln(a);
  end;
End.