Удалить все вхождения заданной строки в исходную - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д