Дано три строки: S1, S2, S3. Заменив в строке S1 все вхождения строки S2 на S3.

@SkyBoy · Регистрация: 03.04.2010

Author24 — интернет-сервис помощи студентам

Дано три строки: S1, S2, S3. Заменив в строке S1 все вхождения строки S2 на S3. Зарание спасибо

Добавлено через 35 минут
Помогите плиз

@Puporev · 27.04.2010, 11:34

Задача в 2 действия.

Pascal

uses crt;
var s1,s2,s3:string;
    p:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s1);
writeln('Введите подстроку, которую менять:');
readln(s2);
writeln('Введите подстроку, на которую менять:');
readln(s3);
while pos(s2,s1)>0 do
 begin
  p:=pos(s2,s1);
  delete(s1,p,length(s2));
  insert(s3,s1,p);
 end;
write(s1);
readln
end.

@SkyBoy 4 / 4 / 1 Регистрация: 03.04.2010 Сообщений: 31
		1
	Дано три строки: S1, S2, S3. Заменив в строке S1 все вхождения строки S2 на S3. 27.04.2010, 11:27. Показов 2082. Ответов 1 Метки нет (Все метки) Дано три строки: S1, S2, S3. Заменив в строке S1 все вхождения строки S2 на S3. Зарание спасибо Добавлено через 35 минут Помогите плиз 0

	27.04.2010, 11:34

Опции темы

Дано три строки: S1, S2, S3. Заменив в строке S1 все вхождения строки S2 на S3.

Решение