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

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

Решение:

program String33;
var
 S,s0:string;
 i,poz:integer;

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

 poz:=pos(S0,S);
 if poz<>0 then delete(S,poz,length(S0));

 Writeln(S);
end.

program String33;

var

S,s0:string;

i,poz:integer;

begin

Write('S:');

Readln(S);

Write('S0:');

Readln(S0);

poz:=pos(S0,S);

if poz<>0 then delete(S,poz,length(S0));

Writeln(S);

end.

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

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

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

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