算不算'?'?

其他,当然不包括了`~`~

Program check;
  var s:string;
      i,c,c2,c3:integer;
  Begin
    readln(s): c:=0; c2:=0; c3:=0;
    for i:=1 to length(s)-1 do
      if s[i] in ['a'..'z'] then inc(c)
        else if s[i] in['0'..'9'] then inc(c2)
          else inc(c3);
    writeln('letters:',c,'  ','numbers:',c2,'   ','others:',c3);
  End.
由于是字符串，所以不用管最后字符。