viết chương trình nhập vào xâu s bất kì , cho biết vị trí xuất hiện sâu ( sâu bất kì)

0 bình luận về “viết chương trình nhập vào xâu s bất kì , cho biết vị trí xuất hiện sâu ( sâu bất kì)”

1. program xuat_hien;

   uses crt;

   var s,s1:string;

   begin

          clrscr;

          write(‘Nhap xau thu nhat: ‘);   readln(s);

          write(‘Nhap xau thu hai: ‘);   readln(s1);

          if pos(s1,s)=0 then write(‘Khong co’)

          else write(‘Vi tri xuat hien dau tien la: ‘,pos(s1,s2));

          readln;

   end.

   Bình luận