Question

Даны две строки s1 и s2. Удалить из строки s1 все подстроки s2, если s2, не содержится в s1, вывести s1 без изменений. Паскаль

Answer 1

##  // PascalАВС.NЕТ 3.9

var s1 := ReadLnString;

var s2 := ReadlnString;

s1 := s1.Replace(s2, '');

Print(s1)

{

Пример работы программы

Где кот, который гонял кота, боящегося щекотки за то что тот кот съел антрекот?

кот

Где , орый гонял а, боящегося щеки за то что тот  съел антре?

}