Найти в строке указанную подстроку и заменить ее ** новую. ее ** новую. Строку, ее...

Question

Найти в строке указанную подстроку и заменить ее на новую. ее на новую. Строку, ее подстроку для замены и новую подстроку вводит пользователь.

Comments

На каком языке программирования?

Answer 1

Var s,ss,s2:string;
i:longint;
Begin
write('String: ');
readln(s);
write('Substring: ');
readln(ss);
Write('Replace with: ');
readln(s2);
i:=pos(ss,s);
delete(s,i,length(ss));
insert(s2,s,i);
writeln(s);
end.