Question

PASCAL编程！

连续的字符

时间限制:1秒 内存限制: 64 MB

试题描述

字符串由连续出现相同的字母组成，要求转换成这个字母加字母的个数，例如出现aaaaaa，则新字符串变成：a6。

输入要求

原始字符串（长度不大于250）。

输出要求

以字母及数字表示原字符串。

输入样例

aaaaaabb

输出样例

a6b2
字符串

Answer 1

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.
那个，你最好在检查一下，最近我状态不大有，经常性出错

Answer 2

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.
希望能帮到你：）

追问

好像不对

追答

请问哪里不正确?

追问

我运算出来不对

追答

我又修改了一下，这样应该对了
var st:string;
i,j:longint;
begin
readln(st);
i:=0;
while ist[i] then break;
if (j=length(st))and(st[j]=st[i]) then write(st[i],j-i+1)
else write(st[i],j-i);
i:=j;
end;
writeln;
end.

追问

谢谢！