Удалить все вхождения заданной строки в исходную - 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы