Yêu cầu: Viết chương trình nhập vào hai xâu S1 và S2. Tìm xem xâu S2 có trong xâu S1 hay không. Nếu có thì in ra YES, nếu không thì in ra NO Dữ liệu: - Dòng 1 là xâu S1 (0 < length(S1) ≤ 1000). - Dòng 2 là xâu S2 (0 < length(S2) ≤ 1000). Kết quả: In ra YES hoặc NO PASCAL GIÚP MÌNH NHÉ
1 câu trả lời
uses crt;
var s1, s2: ansistring;
begin
clrscr;
readln(s1); readln(s2);
if pos(s2, s1) <> 0 then write('YES') else write('NO');
readln;
end.
