даны строчки S , S1, S2.  Поменять в строке S  все

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

Задать свой вопрос
1 ответ
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 kgt;0 then begin
delete(s1,k,length(s2));
insert(s2,s1,k); Не помню точно, в каком порядке 1-ые 2 переменные
writeln(s1); end else exit; end;
end.
Варвара Мунадеева
большое спасибо )
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт