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!!
2 câu trả lời
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.
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.
