Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Diana102004
25.10.2020 21:56 •
Информатика
Задана строка s требуется подсчитать кол-во включений подстроки ps1 в строке s и заменить на подстроку ps2
Показать ответ
Ответ:
egor535
05.07.2020 14:43
Var s,p1,p2:string;
i,k:integer;
begin
readln(s);
readln(p1);
readln(p2);
while (pos(p1,s)>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.
0,0
(0 оценок)
Популярные вопросы: Информатика
Арина11841
11.10.2020 15:34
Вычислитель Исполнитель Март21 преобразует число на экране. У исполнителя есть три команды, которым присвоены номера: 1. Прибавить 1 2. Прибавить 2 3. Прибавить 3 Сколько...
Аркаша2281337
16.06.2021 13:24
Укажіть ім я клітинок, які не модифікуються при копіюванні....
Poligrinka
01.10.2020 04:53
нужно контрольную написать или мне капец...
2Znanijacom1
06.10.2022 01:05
одной оценки до аттестации не хватает)))...
ruslanpavlov8
24.02.2023 11:31
Как используется функция іnput() в строке 548 + 895 + 1000 + + 5012 , чтобы выделить числа из строки и сложить их?...
Dancerebuclic2017
08.01.2021 03:58
Задача 1. Дано два числа a и b. Сделать так, чтобы их значения поменялись местами. Постановка задачи: Имеются две переменные с какими-то определёнными значениями. Пусть значение...
kolchanovalina
01.01.2023 08:19
в воздушнлм шаре содержится около 0.9 * 10^23 молекул азота.вычислите количество вещества азота (в молях). ответ должен быть 0.149 моль....
PoliKotova02
04.12.2021 20:02
Запиши натуральное число 292929 в виде разрядных слагаемых.292929 =+++++10+10+. 10т. 10+- 10 +...
анксунамун1
04.12.2021 20:02
Скоротіть дріб 56*99/110*63...
dgbimv
05.01.2021 08:36
Ежелгі адамдар және жануарлардың айырмашылығы ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k:integer;
begin
readln(s);
readln(p1);
readln(p2);
while (pos(p1,s)>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.