Pascal输入一串字符,结束,分别统计其中数字(0,1,2,.9)出现的次数

问题描述:

Pascal输入一串字符,结束,分别统计其中数字(0,1,2,.9)出现的次数
用数组,排序与分类的作业.
input
输入文件只有一行,一‘?’借宿的一串字符.
output
输出文件共十行,没行输出俩证书,分别是数字和该数字在字符串中出现的次数多少,按降序排列,期间用一个空格隔开.
输入样例
a28455529A9B9c9762z66ob648y88u85c788805o9?
输出样例
8 8
5 5
9 5
6 4
2 3
4 2
7 2
0 1
1 0
3 0
1个回答 分类:综合 2014-10-11

问题解答:

我来补答
程序很简单,仔细看吧:
var
a:array ['0'..'9'] of longint;
b:array ['0'..'9'] of char;
c,i,j,tt:char;
t:longint;
begin
//初始化
for i:='0' to '9' do
b[i]:=i;
//读取字符
read(c);
while c'?' do
begin
if (c>='0')and(c
 
 
展开全文阅读
剩余:2000
也许感兴趣的知识