Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
donatas6969
29.01.2023 09:51 •
Информатика
Склавиатуры вводится строка. подсчитать сколько раз в нее входит подстрока abc.
Показать ответ
Ответ:
qertthdfjht
06.10.2020 00:51
Var s: string;
n,k: integer;
begin
write('строка: '); readln(s);
k:=0;
n:=pos('abc',s);
if n>0 then
repeat
k:=k+1;
delete(s,1,n+2);
n:=pos('abc',s);
until n=0;
writeln(k);
end.
строка: fdrsabcde dsabcjhy abckjuy
3
строка: dscabgfre fhygdte
0
0,0
(0 оценок)
Популярные вопросы: Информатика
12345Serik
27.09.2020 13:55
Напишите домик в qbasik с screen 9...
Виолетта2209
01.06.2021 10:09
Какая из блок-схем изображена правильно? выберите один из 4 вариантов ответа: 1) 1 2) 2 3) обе блок-схемы изображены правильно. 4) обе блок-схемы изображены не правильно...
ЛюАниме
24.01.2021 07:42
По теме итерационные циклы под корнем 2+sinx /(без корня)x+cosx хнач.=0,2 хкон.=1 s=0,2...
fialka08
28.10.2020 12:07
1в чемпионате по футболу команде за выигрыш дается 3 очка, за проигрыш – 0, за ничью – 1. известно число очков, полученных за каждую из проведенных игр. определить количество выигрышей...
supermen2018
10.11.2022 08:39
Как открываются и закрываются документы и программы? полный ответ,: )...
роза413
31.03.2022 21:15
Программу оформить в паскале) даны натуральное число n и целые числа . выяснить, верно ли, что количество тех чисел , которые меньше 20, равно пяти....
Hikena
31.03.2022 21:15
Дано натуральное число n.составте программу, котора определяет, сколько раз в числе n содержится наибольшая цифра этого числа....
faraoniklp07wqy
23.11.2020 21:40
Напишите программу на паскале(элементарную, без всяких сложных операторов) из файла f (все его компоненты натуральные числа) перевести в файл g все четные числа...
superutkanosska22
09.01.2023 21:22
Записать выражение на языке паскаль k= (5m+1) +2n (в третьей степени)...
favorit19971
23.03.2020 12:44
Visual basic 5.0 мне нужна такая функция,чтоб при нажатии кнопки объект shape(например,кружок),становился больше. как такое задать?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,k: integer;
begin
write('строка: '); readln(s);
k:=0;
n:=pos('abc',s);
if n>0 then
repeat
k:=k+1;
delete(s,1,n+2);
n:=pos('abc',s);
until n=0;
writeln(k);
end.
строка: fdrsabcde dsabcjhy abckjuy
3
строка: dscabgfre fhygdte
0