Задана строчка S требуется подсчитать кол-во включений подстроки PS1 в строке

Задана строка S нужно подсчитать кол-во включений подстроки PS1 в строке S и поменять на подстроку PS2

Задать свой вопрос
Злата Мунтянова
CРОЧНО
1 ответ
Var s,p1,p2:string;
i,k:integer;
begin
readln(s);
readln(p1);
readln(p2);
while (pos(p1,s)gt;0) do begin
inc(k);
i:=pos(p1,s);
delete(s,pos(p1,s),length(p1));
insert(p2,s,i);
end;
writeln(k);
writeln(s);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт