PASCAL编程!
连续的字符时间限制:1秒内存限制:64MB试题描述字符串由连续出现相同的字母组成,要求转换成这个字母加字母的个数,例如出现aaaaaa,则新字符串变成:a6。输入要求原始...
连续的字符
时间限制:1秒 内存限制: 64 MB
试题描述
字符串由连续出现相同的字母组成,要求转换成这个字母加字母的个数,例如出现aaaaaa,则新字符串变成:a6。
输入要求
原始字符串(长度不大于250)。
输出要求
以字母及数字表示原字符串。
输入样例
aaaaaabb
输出样例
a6b2
字符串 展开
时间限制:1秒 内存限制: 64 MB
试题描述
字符串由连续出现相同的字母组成,要求转换成这个字母加字母的个数,例如出现aaaaaa,则新字符串变成:a6。
输入要求
原始字符串(长度不大于250)。
输出要求
以字母及数字表示原字符串。
输入样例
aaaaaabb
输出样例
a6b2
字符串 展开
2个回答
展开全部
var s,ss,sss:string;
i,j,k,t,l:longint;
c:char;
begin
readln(s);
l:=length(s);c:=s[1];k:=1;
for i:=2 to l do begin
if s[2]=c then inc(k)
else begin ss:=ss+c;if k<>1 then ss:=ss+str(k,sss);end;
end;
writeln(ss);
end.
那个,你最好在检查一下,最近我状态不大有,经常性出错
i,j,k,t,l:longint;
c:char;
begin
readln(s);
l:=length(s);c:=s[1];k:=1;
for i:=2 to l do begin
if s[2]=c then inc(k)
else begin ss:=ss+c;if k<>1 then ss:=ss+str(k,sss);end;
end;
writeln(ss);
end.
那个,你最好在检查一下,最近我状态不大有,经常性出错
展开全部
var st:string;
i,j:longint;
begin
readln(st);
i:=0;
while i<length(st) do
begin
inc(i);
for j:=i+1 to length(st) do
if st[j]<>st[i] then break;
write(st[i],j-i+1);
end;
writeln;
end.
希望能帮到你:)
i,j:longint;
begin
readln(st);
i:=0;
while i<length(st) do
begin
inc(i);
for j:=i+1 to length(st) do
if st[j]<>st[i] then break;
write(st[i],j-i+1);
end;
writeln;
end.
希望能帮到你:)
更多追问追答
追问
好像不对
追答
请问哪里不正确?
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询