NKLETTER - Gửi thư

Tác giả: skyvn97

Ngôn ngữ: Pascal

program NKLETTER;
var
        pre,suf:ansistring;
        max,lp,ls,len:integer;
begin
        readln(pre);
        readln(suf);
        lp:=length(pre);
        ls:=length(suf);
        max:=0;
        len:=1;
        while (len<=lp) and (len<=ls) do
                begin
                        if copy(pre,lp-len+1,len)=copy(suf,1,len) then max:=len;
                        inc(len);
                end;
        write(lp+ls-max);
end.

Download