Viết chương trình để nhập vào 2 xâu s1 và s2 sau đó thông báo ra màn hình xâu s1 có trong s2 không. Nhờ mn giúp em với ạ

0 bình luận về “Viết chương trình để nhập vào 2 xâu s1 và s2 sau đó thông báo ra màn hình xâu s1 có trong s2 không. Nhờ mn giúp em với ạ”

1. program Xau;
   uses CRT;
   var   s1,s2: string;
   begin

              clrscr;
        
              write(‘Nhap xau S1: ‘);readln(s1);
        
              write(‘Nhap xau S2: ‘);readln(s2);
            
              If pos(s1,s2) <> 0 then
        
              write(‘Xau S1 co trong xau S2’) else
        
              write(‘Xau S1 khong co trong xau S2’);
          
   readln;
   end.

   Bình luận