Решаем задачи Абрамян на Паскале. String35

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

Решение:

program String35;
var
 S,S0:string;
 poz:integer;

begin
 Write('S:');
 Readln(S);
 Write('S0:');
 Readln(S0);

 poz:=pos(S0,S);

 while (poz<>0) do
  begin
   delete(S,poz,length(S0));
   poz:=pos(S0,S);
  end;
 Writeln(S);
end.

program String35;

var

S,S0:string;

poz:integer;

begin

Write('S:');

Readln(S);

Write('S0:');

Readln(S0);

poz:=pos(S0,S);

while (poz<>0) do

begin

delete(S,poz,length(S0));

poz:=pos(S0,S);

end;

Writeln(S);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String35

Комментарии:

Добавить комментарий Отменить ответ