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

String36. Даны строки $$S$$, $$S_1$$ и $$S_2$$. Заменить в строке $$S$$ первое вхождение строки $$S_1$$ на строку $$S_2$$.

Решение:

program String36;
var
 S,S1,S2:string;
 poz:integer;

begin
 Write('S:');
 Readln(S);
 Write('S1:');
 Readln(S1);
 Write('S2:');
 Readln(S2);

 poz:=pos(S1,S);

 delete(S,poz,length(S1));
 insert(S2,S,poz);

 Writeln(S);
end.

program String36;

var

S,S1,S2:string;

poz:integer;

begin

Write('S:');

Readln(S);

Write('S1:');

Readln(S1);

Write('S2:');

Readln(S2);

poz:=pos(S1,S);

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

insert(S2,S,poz);

Writeln(S);

end.

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

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

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

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