Viết chương trình nhập vào từ bàn hai xâu a và b , kiểm tra xem xâu a có nằm trong b hay không và đưa ra kết quả .

lamsauday246Thông thái06:43

program bai4;

uses crt;

var a,b:string;i,kt:longint;

begin

 clrscr;.   

  write('nhap xau a:');readln(a);

  write('nhap xau b:');readln(b);

  for i:=1 to length(a)-length(b)+1 do if(b=copy(a,i,length(b)))then

        begin

         kt:=1;

         break;

        end else kt:=0;

program bai4;
uses crt;
var a,b:string;i,kt:longint;
begin
 clrscr;
  write('nhap xau a:');readln(a);
  write('nhap xau b:');readln(b);
  for i:=1 to length(a)-length(b)+1 do if(b=copy(a,i,length(b)))then
        begin
         kt:=1;
         break;
        end else kt:=0;
  if(kt=1)then write('co')else write('khong');
 readln
end.