BÀI TẬP 70: SINH XÂU KÝ TỰ

Cho hai xâu X, Y gồm các ký tự số từ 0 đến 9 được biểu diễn như sau:

            X = x₁, x₂, …, x_n; Y = y₁, y₂, …, y_m (n,m<250). Hãy viết chương trình sinh ra xâu ST thoả mãn các điều kiện sau:

            - ST gồm các ký tự số vừa có mặt ở xâu X, vừa có mặt ở xâu Y.

            - Các ký tự số trong xâu ST chỉ xuất hiện duy nhất một lần.

            - Xâu ST nếu đổi ra số sẽ nhận được một số đạt giá trị lớn nhất.

            Dữ liệu vào: Cho bởi file text SINHXAU.INP chứa xâu X và xâu Y, mỗi xâu nằm trên một dòng.

            Kết quả: Ghi ra file SINHXAU.OUT là số lớn nhất nhận được.

SINHXAU.INP	SINHXAU.OUT
X= ‘19012304’ Y= ‘034012	43210
X= ‘2468’                        Y= ‘3579’	Khong co

    CODE THAM KHẢO:

    program sinh_xau_ky_tu;

    var X, Y, st: string;

        f:text;

        ch:char;

    begin

            assign(f,'sinhxau.inp'); reset(f);

            readln(f,X);

            readln(f,Y);

            close(f);

            assign(f,'sinhxau.out'); rewrite(f);

            st:='';

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

              if (pos(ch,X)<>0) and (pos(ch,Y)<>0) then st:=st+ch;

            if length(st) > 0 then write(f,st)

            else write(f,'Khong co');

            close(f);

    end.