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.