viết chương trình nhập từ bàn phím 2 xâu s1 và s2 xác định vị trí. xuất hiện đầu tiên của xâu s1 trong xâu s2

0 bình luận về “viết chương trình nhập từ bàn phím 2 xâu s1 và s2 xác định vị trí. xuất hiện đầu tiên của xâu s1 trong xâu s2”

1. uses crt;
   var s1,s2:string;
       i:integer;
   begin
      clrscr;
      writeln(‘Nhap xau s1: ‘); readln(s1);
      writeln(‘Nhap xau s2: ‘); readln(s2);
      i:=pos(s1,s2); write(i);
      readln
   end.

   Bình luận

2. uses crt;
   var s1,s2:string;
       i:integer;
   begin
      clrscr;
      writeln(‘Nhap xau s1: ‘); readln(s1);
      writeln(‘Nhap xau s2: ‘); readln(s2);
      i:=pos(s1,s2); write(i);
      readln
   end.

   Bình luận