Даны строки S , S1, S2. Заменить в строке S все вхождения строки S1 ** строку S2 .

Сегодня примерно в 23:17 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.

Тема вопроса с пояснением

Даны строки S , S1, S2. Заменить в строке S все вхождения строки S1 на строку S2 .

Ответ с привлечением экспертов

Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:

Даны строки S , S1, S2. Заменить в строке S все вхождения строки S1 на строку S2 .

И сразу же ответим на него:

После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

Var
s1,s2,s3:string;
i,j:longint;
begin
readln(s1,s2,s3);
for i:=1 to length(s1);
begin
k:=pos(s2,s1);
if k>0 then begin
delete(s1,k,length(s2));
insert(s2,s1,k); {Не помню точно, в каком порядке первые 2 переменные}
writeln(s1); end else exit; end;
end.