NKEDIT - Hiệu chỉnh văn bản

Tác giả: flashmt

Ngôn ngữ: Pascal

var n,kq:byte;
    a,b:string;
procedure re;
begin
     readln(n);
     readln(a);
     readln(b);
end;
procedure pr;
var la,i,j,k:byte; kt:boolean; c:string;
begin
     kq:=0;
     repeat
           kt:=false;
           la:=length(a);
           for i:=la downto n do
           begin
                for j:=1 to la-i+1 do
                begin
                     c:=copy(a,j,i);
                     k:=pos(c,b);
                     if k>0 then
                     begin
                          inc(kq);
                          kt:=true;
                          delete(b,k,i);
                          delete(a,j,i);
                     end;
                     if kt then break;
                end;
                if kt then break;
           end;
     until not kt;

end;
procedure wr;
begin
     writeln(kq);
     writeln(a);
     write(b);
end;
begin
     re;
     pr;
     wr;
end.

Download