YOMEDIA
NONE

Cho 2 chuỗi X=x1x2 ...xN trong đó xi là các số từ 0 đến 9. Y=y1y2...yM trong đó yi là các số từ 0 đến 9 và M, N không quá 250.

Gọi Z là chuỗi con chung của 2 chuỗi X và Y. Nếu chuỗi Z nhận được từ chuỗi X bằng cách xóa đi một số kí tự và Z cũng nhận được từ chuỗi Y bằng cách xoá đi một số kí tự.

Theo dõi Vi phạm
ATNETWORK

Trả lời (1)

  • thanh hằng

    var L:array[0..100,0..100] of integer;    x,y,kq:string;max:integer;

    {============}

    procedure   doc;

    var f:text; i,j:integer;

    begin

      assign(f,'bai4.inp');reset(f);  readln(f,x);  readln(f,y);  close(f);

    end;

    {==============}

    procedure   xuli1;

    var i,j,m,n:byte;

    begin

      m:=length(x);n:=length(y);

      for i:=1 to m do

      for j:=1 to n do

         if x[i]=y[j] then L[i,j]:=L[i-1,j-1]+1

         else

            if L[i-1,j]>L[i,j-1] then L[i,j]:=L[i-1,j] else L[i,j]:=L[i,j-1];

      max:=L[m,n]; writeln(max);

    end;

    {=============}

    procedure  in_kq;

     var i,j,is,js,so:byte; ch:char;

    begin

      Is:=length(x);Js:=length(y);so:=0;

          repeat

             for ch:='9' downto '0' do

              begin

                i:=is; j:=js;

                while (x[i]<>ch) and(i>0) do dec(i);

                while (y[j]<>ch) and(j>0) do dec(j);

                if L[i,j]=max-so then

                  begin      kq:=ch+kq;      Is:=i; Js:=j;   break;              end;

              end;

               inc(so);

           until max=so;

       write(kq);

    end;

    {=================}

    begin   doc;   kq:=' '; xuli1; in_kq; readln; end.

      bởi thanh hằng 30/11/2021
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
ATNETWORK
ON