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

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

Решение:

program String37;
var
 S,S1,S2,Sm,Sm1,Sm2:string;
 poz:integer;

function miror(S:String):String;
var
 i: integer;
 S2:String;
begin
 S2:='';
 for i:=1 to Length(S) do S2:=S2+S[Length(S)-i+1];
 miror:=S2;
end;

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

 Sm:=miror(S);
 Sm1:=miror(S1);
 Sm2:=miror(S2);

 poz:=pos(Sm1,Sm);

 delete(Sm,poz,length(Sm1));
 insert(Sm2,Sm,poz);

 S:=miror(Sm);

 Writeln(S);
end.

program String37;

var

S,S1,S2,Sm,Sm1,Sm2:string;

poz:integer;

function miror(S:String):String;

var

i: integer;

S2:String;

begin

S2:='';

for i:=1 to Length(S) do S2:=S2+S[Length(S)-i+1];

miror:=S2;

end;

begin

Write('S:');

Readln(S);

Write('S1:');

Readln(S1);

Write('S2:');

Readln(S2);

Sm:=miror(S);

Sm1:=miror(S1);

Sm2:=miror(S2);

poz:=pos(Sm1,Sm);

delete(Sm,poz,length(Sm1));

insert(Sm2,Sm,poz);

S:=miror(Sm);

Writeln(S);

end.

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

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

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

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