删除长度小于80的字符串中指定的字符，字符串和要删除的字符均有键盘输入，要有注释哦

Question

如题所述

Answer 1

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.追问

这是c语言吗？我刚学，不太懂 简单点

追答

额，不是pascal的……

追问

那你答一下呗，谢谢啦