Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gorkylush
26.11.2022 02:06 •
Информатика
Дана строка.определить сколько раз входит в нее группа букв a b c. ,не надо писать решай сама!
Показать ответ
Ответ:
Vitalikebati
05.07.2020 08:48
Var a,b,c, s:string; i,c:integer;
begin
readln(s);
readln(a,b,c);
for i:=1 to length(s) do begin
if (s[i]=a) or (s[i]=b) or (s[i]=c) then
c:=c+1;
end;
writeln('Группа букв a b c встречается ', c, ' раз');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
isokova01
27.12.2021 10:08
перевести десятичные дроби в двоичную и восьмеричную системы счисления, оставив пять знаков в дробной части нового числа. а) 12,5; б) 312,54; в) 219,333 развернутый ответ...
vitaska1971oz3tq3
22.01.2023 05:04
1. какое логическое выражение равносильно выражению ¬(¬a dis b) dis ¬c? 1) (a con ¬b) dis ¬c 2) ¬a dis b dis ¬c 3) a dis ¬b dis ¬c 4) (¬a con b) dis ¬c 2.для какого имени...
btrawee34
22.08.2021 05:07
Какая последовательность символов не может служить именем в языке паскаль? _mas 2d mas1 d2...
ekzz1
11.09.2020 11:31
Текст составлен с использованием алфавита мощностью 64 символа и содержит 100 символов.каков информационный объем текста ?...
влад2313
26.04.2022 22:18
1. розгалужені алгоритми банкомат містить в достатній кількості купюри номіналом 10, 20, 50, 100, 200 і 500 гривень. знайти найменшу кількість купюр, якою можна видати...
LRM999919
21.08.2022 13:20
Дано натуральное число n найти количество четных не равных нулю цифр этого числа (9 класс )напишите...
2017МегаМозг2017
28.05.2020 17:45
ТЕКСТ ЗАДАНИЯ Решите неравенствох² (2 – x) 0х²– 10x + 25и укажите наибольшее целое решение этогонеравенства....
Ardak123
08.07.2021 00:21
Пользуясь законами сохранения зарядового и массового чисел, определи заряд и массу ядра, получившегося в результате α-распада. Найди этот элемент в таблице Д. И. Менделеева....
Ganster1234567
30.08.2021 05:46
Запишите числа в порядке возрастания: 3,456; 3,465; 8,149; 8,079. Вычислите произведение чисел, стоящих на третьем и четвёртом местахполученного ряда....
Lane9ig
30.08.2021 05:46
на складе лесопилки находиться 1440 бревен: 18 штабелей бревен одного сорта и 9 штаблей бревен другого сорта. сколько бревен каждого сорта находиться на складе ,если известно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(s);
readln(a,b,c);
for i:=1 to length(s) do begin
if (s[i]=a) or (s[i]=b) or (s[i]=c) then
c:=c+1;
end;
writeln('Группа букв a b c встречается ', c, ' раз');
readln;
end.