pascal统计数字对统计数字对 Description 编制一个程序.要求输入一个长度为10的数字串(0~9),然后统计出在这组数中每相邻两数字组成的数字对出现的次数.输入：一个字符串输出：每组数字对出

pascal统计数字对统计数字对 Description 编制一个程序.要求输入一个长度为10的数字串(0~9),然后统计出在这组数中每相邻两数字组成的数字对出现的次数.输入：一个字符串输出：每组数字对出
pascal统计数字对
统计数字对
Description
编制一个程序.要求输入一个长度为10的数字串(0~9),然后统计出在这组数中每相邻两数字组成的数字对出现的次数.
输入：一个字符串
输出：每组数字对出现的次数（按数字对从左到右的次序),数字对和次数之间一个空格隔开.
样例输入 Sample Input
5757822222
样例输出 Sample Output
57 2
75 1
78 1
82 1
22 4
时间限制 Time Limitation
各个测试点1s
用标记

pascal统计数字对统计数字对 Description 编制一个程序.要求输入一个长度为10的数字串(0~9),然后统计出在这组数中每相邻两数字组成的数字对出现的次数.输入：一个字符串输出：每组数字对出
var
i,j,m,p:longint;
t:array [1..9] of longint;
n:array [1..9] of string;
s:string;
begin
m:=0;
readln(s);
for i:=1 to 9 do
begin
p:=0;
for j:=1 to m do if copy(s,i,2)=n[j] then
begin
p:=j;
break;
end;
if p=0
then
begin
m:=m+1;
t[m]:=1;
n[m]:=copy(s,i,2);
end
else t[j]:=t[j]+1;
end;
for i:=1 to m do writeln(n[i],' ',t[i]);
end.
——百度知道团队pas世界欢迎你加入!