Viết chương trình nhập vào hai xâu. Xem xâu thứ 2 có trong xâu thứ nhất hay không? Gấp lắm các bro ơi!!

0 bình luận về “Viết chương trình nhập vào hai xâu. Xem xâu thứ 2 có trong xâu thứ nhất hay không? Gấp lắm các bro ơi!!”

1. program kiem_tra;

   uses crt;

   var s1,s2:string;

   begin

          clrscr;

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

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

          if pos(s2,s1)<>0 then write(‘Co’)

                 else write(‘Khong’);

          readln;

   end.

          

   Bình luận

2. uses crt;
   var s1,s2:string;
   begin
      clrscr;
      write(‘Nhap xau thu nhat: ‘);readln(s1);
      write(‘Nhap xau thu hai: ‘);readln(s2);
      if pos(s2,s1)<>0 then writeln(‘Yes’) else writeln(‘No’);
   readln;
   end.

   Bình luận