Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
severina3
21.09.2020 11:21 •
Информатика
Преобразовать строку s следующим образом: заменить все вхождения 'ab' на '*'. напишите программу для паскаль или лазарус
Показать ответ
Ответ:
Gklunnyy123
24.06.2020 20:51
Program gt;
var s:string;
i,l,n:longint;
begin
readln(s);
n:=length(s);
l:=1;
while L<>0 do
begin
l:=pos('ab',s);
if(l<>0)then begin
s:=copy(s,1,l-1)+'*'+copy(s,l+2,n);
n:=length(s);
end;
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nikita2429p09umg
01.06.2023 21:40
Как создавать диаграмму вариантов выполнения? как писать описательную спецификацию? Мдк 11.01....
madamgurdyumova
26.01.2022 23:23
В кодировке КОИ-8 каждый символ кодируется 8 битами. Паша написал текст (в нем нет лишних пробелов) Аки, Бали, Сибуян, Камотес, Лабрадор, Линкольна - моря Ученик вычеркнул...
КнОпОськА8965
26.01.2023 09:27
Напишите программу, которая 10 раз выводит на экран ваши имя и фамилию с...
natata23081
08.07.2021 17:30
Решить на паскале в каждом стакане (200 мл) компота должно быть n граммов сахара. сколько граммов сахара нужно засыпать в трёхлитровую банку? решить !...
drovniashinaan
08.07.2021 17:30
Составьте программу, вычисляющую объем v куба и площадь s полной поверхности, если известна длина ребра a куба. вывод на экран оформить следующим образом: введите длину...
Leonardo81
15.01.2021 17:47
Напишите программу, которая считывает слово (или фразу, неважно) и тут же выводит её, и больше ничего не делает. особое условие: необходимо написать эту программу в...
Bogalexx
28.06.2020 14:23
0,85 в двоичной системе счисления. с объяснением...
Qwertyuiopkoval
19.03.2022 18:33
нужны ответы на во по тексту!!...
GeintQQ
02.05.2021 05:04
Виписати цитати до образу Монтега, Кларіси, Мілдред....
Gregorie
26.02.2022 00:03
CРОЧНО ОТ ЗА РЕШЕНИЕ 1. Яка функція є прямою пропорційністю? а) у = - 3х + х 2 ; б) у = 5х; в) у = х 5 ; г) у = х 3 + 4. 2. Функцію задано формулою у = 5 1 х + 1. Яка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var s:string;
i,l,n:longint;
begin
readln(s);
n:=length(s);
l:=1;
while L<>0 do
begin
l:=pos('ab',s);
if(l<>0)then begin
s:=copy(s,1,l-1)+'*'+copy(s,l+2,n);
n:=length(s);
end;
end;
writeln(s);
end.