1046: 【入门】统计字母出现次数
问题补充：
题目描述
输入一串小写字母（以"."为结束标志），统计出每个字母在该字符串中出现的次数(若某字母不出现，则不要输出)。输入
输入只有一行，包括若干个字符。输出
输出只有两行，第一行为出现的小写字母，第二行为字母的出现次数。样例输入[复制]
abdceeef.样例输出[复制]
abcdef111131最佳答案
以下是pascal的参考
var
c:char;
i:integer;
a:array [1..26] of integer;
begin
for i:=1 to 26 do
a[i]:=0;
read(c);
while c<>'.' do
begin
if (c>='a') and (c<='z') then //若能确保输入是小写的,这行可以不要
inc(a[ord(c)-ord('a')+1]);
read(c);
end;
for i:=1 to 26 do
if a[i]<>0 then
write(chr(ord('a')+i-1));
writeln;
for i:=1 to 26 do
if a[i]<>0 then
write(a[i]);
writeln;
end.
最佳答案由网友 whoami1978 提供
其他回答
暂无其它回答!
