Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
настящасте
23.04.2022 09:27 •
Информатика
Нужно написать на паскале=)) дан набор слов, разделенных точкой с запятой (; ), который заканчивается двоеточием (: ). определить, сколько в нем слов, заканчивающихся буквой «а»
Показать ответ
Ответ:
supereleo2018
22.06.2020 12:06
Var s : string;
i, k : integer;
Begin
read(s);
for i:=1 to length(s)-1 do
if (s[i] = 'а') and ((s[i + 1] = ';') or (s[i + 1] = ':')) then
k := k + 1;
write(k);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Федёк5
12.03.2020 16:04
Найти в байтах вес сообщения из 32 символов, написать с 16 символов алфавита...
полли42
19.05.2022 20:43
Дана строка.подсчитать кол-во слов,которые заканчиваются буквой и...
Nkpr
28.08.2022 03:52
В шахматном турнире по круговой системе участвуют 8 школьников. Известно что Миша и Петя сыграли по 7 партий, Саша 5, Костя и Женя по 4, Гриша и Ваня по 2. С кем...
Ega129
16.09.2022 07:24
Реализуйте лог. функцию с использованием мультиплексоров 8x1 и 4х1...
Redimer
19.03.2022 00:28
Некоторый рисунок сохранили в двух форматах: сначала как 16-цветный рисунок, потом как 24 – разрядный. Во сколько раз изменился файл?...
Siruk217
03.01.2023 04:17
Информатика Установите соответствие между элементами формулы и значениями для формулы: =3*PI()-SQRT($A1)....
kuraflin666
31.07.2022 02:50
Построить, используя таблицу шифратор на ПЛМ...
verchek
22.03.2020 00:30
решить задание по информатике через Excel....
ksyhaua0406ozoo6s
29.01.2020 00:32
Решить задачу: К реке одновременно подошли три купца и три разбойника. Всем необходимо было переправиться на противоположный берег. У берега стояла лодка, которая...
smile1506
29.01.2020 00:32
ЕГЭ по информатике 5 задание...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, k : integer;
Begin
read(s);
for i:=1 to length(s)-1 do
if (s[i] = 'а') and ((s[i + 1] = ';') or (s[i + 1] = ':')) then
k := k + 1;
write(k);
End.