NKLETTER - Gửi thư

Tác giả: flashmt

Ngôn ngữ: Pascal

var a,b:string;
    la,lb,i,j,re:integer;
    kt:boolean;
begin
     readln(a);
     read(b);

     la:=length(a); lb:=length(b); re:=la+1;
     for i:=la downto 1 do
     begin
          kt:=false;
          for j:=0 to la-i do
              if a[i+j]<>b[j+1] then
              begin
                   kt:=true;
                   break;
              end;
          if not kt then re:=i;
     end;
     write(lb-1+re);
end.

Download