a/ Hãy kiểm tra: có thể nhận được M từ S bằng cách xoá đi 1 số ký tự của S hay không? Nếu được hãy hiển thị số thứ tự của các ký tự được giữ lại trong S
b/ Thực hiện câu b với điều kiện bổ sung: Hiệu của số thứ tự kí tự cuối cùng và số thứ tự của ký tự đầu tiên được giữ lại trong S không vượt quá p (p nhập từ bàn phím)
Uses crt;
Trả lờiXóaVar s,m:string;
i,o,p,r:longint;
f:array[1..10000] of longint;
Begin
readln(s);
readln(m);
readln(p);
For r:=1 to length(s)-p+1 do
Begin
o:=1;
For i:=r to r+p do
If s[i]=m[o] then Begin f[o]:=i; o:=o+1; end;
If o>length(m) then break;
end;
If o>length(m) then For i:=1 to o-1 do Write(f[i],' ');
readln;
end.