Удалить все вхождения заданной строки в исходную - PascalABC.NET
Формулировка задачи:
Даны 2 символьных строки s1,s2. Удалить все вхождения строки s2 в исходную s1
Решение задачи: «Удалить все вхождения заданной строки в исходную»
textual
Листинг программы
var s1, s2: string;
n, k: integer;
begin
write('s1 = ');
readln(s1);
write('s2 = ');
readln(s2);
n := 1;
repeat
k := pos(s2, copy(s1, n, length(s1) - n + 1));
n := n + k - 1;
if k > 0 then delete(s1, n, length(s2))
until k = 0;
writeln('s1: ', s1)
end.