Nhập từ bàn phím xâu s1 và xâu s2,đưa ra màn hình số lần xuất hiện của xâu s1 trong xâu s2.

0 bình luận về “Nhập từ bàn phím xâu s1 và xâu s2,đưa ra màn hình số lần xuất hiện của xâu s1 trong xâu s2.”

1. program xuat_hien;

   uses crt;

   var s1,s2:string;

         d:byte;

   begin

        clrscr;

        write(‘Xau s1 la: ‘);   readln(s1);

        write(‘Xau s2 la: ‘);    readln(s2);

        d:=0;

        while pos(s1,s2)<>0 do

             begin

                  insert(chr(1),s2,pos(s1,s2));

                  d:=d+1;

                  delete(s2,pos(s1,s2),length(s1));

             end;

        write(‘So lan xuat hien la: ‘,d);

        readln;

   end.

        

   Bình luận