pascal统计数字对统计数字对 Description 编制一个程序.要求输入一个长度为10的数字串(0~9),然后统计出在这组数中每相邻两数字组成的数字对出现的次数.输入:一个字符串输出:每组数字对出
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 23:35:40
![pascal统计数字对统计数字对 Description 编制一个程序.要求输入一个长度为10的数字串(0~9),然后统计出在这组数中每相邻两数字组成的数字对出现的次数.输入:一个字符串输出:每组数字对出](/uploads/image/z/2479346-26-6.jpg?t=pascal%E7%BB%9F%E8%AE%A1%E6%95%B0%E5%AD%97%E5%AF%B9%E7%BB%9F%E8%AE%A1%E6%95%B0%E5%AD%97%E5%AF%B9+Description+%E7%BC%96%E5%88%B6%E4%B8%80%E4%B8%AA%E7%A8%8B%E5%BA%8F.%E8%A6%81%E6%B1%82%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E9%95%BF%E5%BA%A6%E4%B8%BA10%E7%9A%84%E6%95%B0%E5%AD%97%E4%B8%B2%280%7E9%29%2C%E7%84%B6%E5%90%8E%E7%BB%9F%E8%AE%A1%E5%87%BA%E5%9C%A8%E8%BF%99%E7%BB%84%E6%95%B0%E4%B8%AD%E6%AF%8F%E7%9B%B8%E9%82%BB%E4%B8%A4%E6%95%B0%E5%AD%97%E7%BB%84%E6%88%90%E7%9A%84%E6%95%B0%E5%AD%97%E5%AF%B9%E5%87%BA%E7%8E%B0%E7%9A%84%E6%AC%A1%E6%95%B0.%E8%BE%93%E5%85%A5%EF%BC%9A%E4%B8%80%E4%B8%AA%E5%AD%97%E7%AC%A6%E4%B8%B2%E8%BE%93%E5%87%BA%EF%BC%9A%E6%AF%8F%E7%BB%84%E6%95%B0%E5%AD%97%E5%AF%B9%E5%87%BA)
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世界欢迎你加入!