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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы