Question

Даны строки S и S0. Удалить из строки S первую подстроку, совпадающую с S0. если совпадающих подстрок нет, то вывести строку S без изменений.

Answer 1

var
  s, s0: string;
  i: integer;

begin
  writeln('Введите строку');
  readln(s);
  writeln('Введите подстроку');
  readln(s0);
  i := Pos(s0, s);
  if i > 0 then Delete(s, i, length(s0));
  writeln('Результат:');
  writeln(s)
end.

Тестовое решение:

Введите строку
Где-то тут прячется подстрока, которую мы должны найти и удалить!
Введите подстроку
мы должны найти
Результат:
Где-то тут прячется подстрока, которую  и удалить!

Answer 2

да я учил именно это