Processing math: 0%

$\newcommand{\eps}{\varepsilon} \newcommand{\RR}{\mathbb{R}} \newcommand{\rd}{\operatorname{d}} \newcommand{\set}[1]{\left\{#1\right\}}$

Решаем задачи Абрамян на Паскале. 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 можно посмотреть здесь.

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

➤