NKH - Tách Từ

Tác giả: ladpro98

Ngôn ngữ: Pascal

program nkh;
uses    math;
const   maxN=201;
        fi='';
var     r:array[1..maxN] of longint;
        a,b,s:string;

procedure input;
var     inp:text;
begin
        assign(inp,fi);
        reset(inp);
        readln(inp,a);
        readln(inp,b);
        readln(inp,s);
        close(inp);
end;

procedure output;
var     i:longint;
begin
        for i:=1 to length(s) do
        write(r[i]);
end;

procedure back(k,i,j:longint);
begin
        if k>length(s) then
        begin
                output;
                halt;
        end;
        if s[k]=a[i] then
        begin
                r[k]:=1;
                back(k+1,i+1,j);
        end;

        if s[k]=b[j] then
        begin
                r[k]:=2;
                back(k+1,i,j+1);
        end;
end;



begin
        input;
        back(1,1,1);


end.

Download