输入一串小写字母（以“？”为结束标志），统计出每个字母在该字符串中出现的次数。即使出现字母个数为0也

要输出。且按照a到Z的顺序输出。

用PASCAL语言

var
s:string;
i:integer;
c:char;
a:array ['a'..'z'] of integer;
begin
readln(s);
for i:=1 to length(s)-1 do
inc(a[s[i]]);
for c:='a' to 'z' do
writeln(c,' ',a[c]);
end.

我试试 程序如下： var i,k:integer; s:string; a:array['a'..'z']of integer; c:char; begin k:=1; read(s[k]); while s[k]<>'.' do begin inc(k); read(s[k]); end; if k=1 then begin readln; halt; end; for i:=1 to k do inc(a[s[i]]) end; for c:='a' to 'z' do if a[c]>0 then write(c:2,a[c]:8); readln; readln； end.