统计出每个字母在该字符串中出现的次数若某字母不出.pptVIP

题1134：【入门】字符统计 Description 输入一串小写字母(以‘.’为结束标志)，统计出每个字母在该字符串中出现的次数(若某字母不出现，则不要输出)。 要求：每行输出5项，每项以空格隔开。 Input 输入一行以.结束的字符串 Output 输出相应小写字母的个数。 Sample Input aaaabbbccc. Sample Output a:4 b:3 c:3 字符串 * * 边读入，边统计 扫描数组，输出 x[z] … x[h] x[g] x[f] x[e] x[d] x[c] x[b] x[a] y program ex; var ch,i:char; t:integer; x:array[a..z] of integer; begin read(ch); for i:=a to z do x[i]:=0; while ch. do begin x[ch]:=x[ch]+1; read(ch); end; t:=0; for i:=a to z do if x[i]0 then begin inc(t); if t mod 5=0 then writeln(i,:,x[i] , )