Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
юлька438
21.07.2021 09:45 •
Информатика
Склавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".
Показать ответ
Ответ:
AnnaKeya
06.07.2020 16:27
Var
n,k,i: integer;
s:string;
begin
write('Введите фразу: ');
readln(s);
k:=length(s)-1;
if s[1]='а' then n:=1;
for i := 1 to k do
if (s[i]=' ') and (s[i+1]='а') then n:=n+1;
writeln('Число слов на а(рус.): ',n)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kxmm
24.06.2020 11:49
2. С клавиатуры вводятся натуральные числа. Конец ввода чисел – 0, в подсчет количества не входит. Вычислить и вывести на экран сумму только двузначных четных чисел. 3. Дано целое...
kamilamih
19.05.2020 20:18
напишите пропоследовательности грамму которая в натуральных чисел определяет максимальное число оканчивающееся на 8. Программа получает на вход количество чисел в последовательности,...
Star3111
03.06.2021 20:43
Алихан, Ануар и Арман решили написать командную олимпиаду по программированию. К сожалению в кабинете было только два свободных ноутбука, для участия в олимпиаде нужен еще один. Чтобы...
бакыт6
03.06.2021 20:43
Акмарал и Анеля любят оригами. Часто девочки вместе работают над созданием фигурок из бумаги. Для одной из фигурок Акмарал вырезала квадратный кусочек бумаги стороной сантиметров....
ира1288
27.01.2023 11:21
В первой строке находится два целых числа и . Ограничения . Формат Вывода...
Unknown112
10.09.2022 07:17
Кмарал и Анеля любят оригами. Часто девочки вместе работают над созданием фигурок из бумаги. Для одной из фигурок Акмарал вырезала квадратный кусочек бумаги стороной N сантиметров....
ЯСоваНоТупая
07.06.2021 20:00
Прочитайте текст и ответьте на вопросы. «рано утром в конце ноября этого страшного года тревожно зазвонил вечевой колокол. он звонил упорно, настойчиво, своим звоном поднимая горожан...
ulpashkova
07.06.2021 20:00
1. прочитай і відгадай загадки. 1. червоне коромисло через річку повисло. 2. ішли чоловік і жінка вулицею. коли вони підходили до своєї домівки, побачила їх у вікно дитина і гукнула:...
tanyabober
07.06.2021 20:00
Икак можно скорее подберите синоним к словосочетанию толковый рассказ...
6789234158333
07.06.2021 20:00
Как ведут себя птицы когда возвращаються домой после юга?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,k,i: integer;
s:string;
begin
write('Введите фразу: ');
readln(s);
k:=length(s)-1;
if s[1]='а' then n:=1;
for i := 1 to k do
if (s[i]=' ') and (s[i+1]='а') then n:=n+1;
writeln('Число слов на а(рус.): ',n)
end.