VCT nhập vài xâu S1 và S2, cho biết xâu S1 có nằm trong xâu S2 không?

0 bình luận về “VCT nhập vài xâu S1 và S2, cho biết xâu S1 có nằm trong xâu S2 không?”

1. uses crt;
   var s1,s2:string;
   begin
   clrscr;
      write(‘s1=’);readln(s1);
      write(‘s2=’);readln(s2);
      writeln(pos(s1,s2)<>0);
   readln
   end.

   Bình luận

2. program kiemtra;

   uses crt;

   var s1,s2:string;

   begin

   clrscr;

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

   write(‘Nhap xau s2: ‘);    readln(s2);

   if pos(s1,s2) then write(‘Co xau s1 trong xau s2’)

     else write(‘Khong co xau s1 trong xau s2’);

   readln

   end.

   Bình luận