Question

Cho xâu S gồm các kí tự chữ thường,in hoa và các kí tự số. Hãy lập xoa các kí 

tự số liên tục trong xâu đó chỉ để lại kí tự số nhỏ nhất

Input	Output
ABS5341hys738kih762	ABS1hys3kih2

 

pascal nha!

 

Answer 1

program XoaSoLienTuc;

uses sysutils;

function XoaSoLienTuc(S: string): string;

var

     i: integer;

     result: string;

begin

     result := ''

     for i := 1 to Length(S) do

     begin

          if not (S[i] in ['0'..'9']) then

          begin

               if (i = 1) or (S[i-1] in ['0'..'9']) then

                    result := result + ' '

               result := result + S[i];

          end;

     end;

     result := Trim(result);

     result := StringReplace(result, ' ', '', [rfReplaceAll]);

     XoaSoLienTuc := result;

end;

var

     S: string;

begin

     write('Nhập vào xâu S: ');

     readln(S);

     writeln('Kết quả: ', XoaSoLienTuc(S));

end.