var a,b:string;
i:longint;begin
readln(a);//母串
readln(b);//子串
for i:=1 to length(a)-length(b)+1 do //枚举a中的位置
if copy(a,i,length(b))=b then break;//找到b的位置并跳出
a:=copy(a,1,i-1)+copy(a,i+length(b),length(a)-length(b)-i+1);//删除b
writeln(a);
readln;readln;end.... |
|