Заменить в строке подстроку №1 на подстроку №2 - Pascal ABC

Формулировка задачи:

Дана строка. Заменить в ней все вхождения подстроки №1 на подстроку №2. Подстроки №1 и №2 вводятся с клавиатуры. Спасибо за внимание!

Код к задаче: «Заменить в строке подстроку №1 на подстроку №2 - Pascal ABC»

textual
var s,s1,s2:string;
    i:byte;
begin
writeln('Введите строку');
readln(s);
writeln('Введите подстроку для удаления');
readln(s1);
writeln('Введите подстроку для замены');
readln(s2);
for i:=length(s) downto 1 do
if copy(s,i,length(s1))=s1 then
 begin
  delete(s,i,length(s1));
  insert(s2,s,i);
 end;
write(s);
end.

10   голосов, оценка 4.100 из 5


СОХРАНИТЬ ССЫЛКУ