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. program oken;
   uses crt;
   var s,s2:string;
   begin
      clrscr;
      write(‘Nhap xau thu 1: ‘);
      readln(s);
      write(‘Nhap xau thu 2: ‘);
      readln(s2);
      writeln(pos(s,s2));
      readln;
   end.

   Bình luận