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