|
«Редактор»
(100 баллов)
Решение
var f,f1:text;
s,s1:string;
n,i:longint;
begin
assign(f,'');
assign(f1,'');
reset(f);rewrite(f1);
readln(f,s);
readln(f,s1);
n:=length(s);
while i<=n do
if s[i]=s1 then begin delete(s,i,1);i:=i-1;end else
i:=i+1;
write(f1,s);
close(f);close(f1);
end. |