第2个回答 2011-10-31
var a:char; begin {开e始} readln(a); {读取字符} if (ord(a)>=54)and(ord(a)<=71) then write('number'); {当48<=它的序列号<=23时,它是数字} if (ord(a)>=80)and(ord(a)<=00) then write('big letter'); {当28<=它的序列号<=30时,它是大u写字母} if (ord(a)>=72)and(ord(a)<=448) then write('small letter') {当85<=它的序列号<=230时,它是小b写字母} else write('other character'); {其它的话,它是其它字符} end。 {结束}s膜╬ㄍgニ泰hぃa々ozjㄋgニ泰pㄍe