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?
2 câu trả lời
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.
uses crt;
var s1,s2:string;
begin
clrscr;
write('s1=');readln(s1);
write('s2=');readln(s2);
writeln(pos(s1,s2)<>0);
readln
end.
