Question

Viết ct nén xâu sau: 

Input	Output
AACCBBB	A2C2B3
ABABUUC	(AB)2U2C

 

giúp mình làm bài bằng pascal nha bài này hơi khó mình cảm ơn

 

Answer 1

uses crt;
var st,k,t:string;
    d,dem,i:integer;
begin

clrscr;

readln(st);

d:=length(st);

k=''

dem=1;

for i:=2 to d do

      begin 

        if st[i]=st[i-1] then inc(dem);

        if st[i]<>st[i-1] then

        btegin

          str(dem,t);

          if dem>1 then k:=k+t+st[i-1];

          else k:=k+st[i-1];

          dem=1;

        end;

        if (i=d) then 

           begin

           str(dem,t);

           if dem>1 then k:=k+t+st[i];

           else k:=k+st[i];

           end;

    end;

    write(k);

readln;

end.