cho xâu s1 và s2 tìm vị trí xuất hiện cuối cùng câu xâu s1 trong xâu s2 pascal giúp mình với ạ, mai mình phải kiểm tra rồi!!!

0 bình luận về “cho xâu s1 và s2 tìm vị trí xuất hiện cuối cùng câu xâu s1 trong xâu s2 pascal giúp mình với ạ, mai mình phải kiểm tra rồi!!!”

1. uses crt;
   var s1,s2,tam1,tam2:string; i:byte;
   begin
      clrscr;
      write(‘Nhap xau s1: ‘); readln(s1);
      write(‘Nhap xau s2: ‘); readln(s2);
      for i:=length(s1) downto 1 do tam1:=tam1+s1[i];
      for i:=length(s2) downto 1 do tam2:=tam2+s2[i];
      write(‘Vi tri xuat hien cuoi cung cua s1 trong s2 la: ‘,length(s2)-(pos(tam1,tam2)+length(s1)-2));
      readln
   end.

   Bình luận