1046: 【入门】统计字母呈现次数_钱汇娱乐城

1046: 【入门】统计字母呈现次数

原题目:1046: 【入门】统计字母呈现次数
分类:编程开辟 > 最初更新工夫:【2017-08-02 09:22:07】
题目增补:

标题描绘

输出一串小写字母(以"."为完毕标记),统计出每个字母在该字符串中呈现的次数(若某字母不呈现,则不要输入)。

输出

输出只要一行,包罗多少个字符。

输入

输入只要两行,第一举动呈现的小写字母,第二举动字母的呈现次数。

样例输出[复制]

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  提供
通告: 为呼应国度净网举动,局部内容曾经删除,感激网友了解。
6

分享到:

其他答复

暂无别的答复!

    引荐