Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
s0nnka
02.03.2021 23:32 •
Информатика
Склавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".
Показать ответ
Ответ:
akopovalizaveta
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 оценок)
Популярные вопросы: Информатика
voxlemap
05.12.2020 17:15
Какой объем видеопамяти необходим для хранения четырех страниц изображения,при условии, что разрешающая дисплея равна 640х480 точек,а используемых цветов 32? (ответ в кб)...
iuliazhdanovaЮлька
24.09.2021 07:42
Можете с 1). вычислить информационный объем печатного издания в котором 78 страниц, на странице 60 строк, в строке 29 символов. ответ представить в кбайтах. (рассчитать для трех алфавитов...
varkraft
24.12.2021 12:43
Накидайте большой автоматы символами на клавиатуре !...
maestro27568
06.09.2022 12:26
Нужно написать программы на Си. и) Найти сумму элементов, абсолютное значение которых больше среднеарифметического модулей отрицательных элементов. д) В матрице А(4-строки,3-столбца)...
ProKingcool
04.01.2020 17:42
Переведите этот текст на язык! у нас дети учатся в две смены, утром и после обеда. мы учимся после обеда , на второй смене. наш учебный день начинается в 14: 30 и заканчивается в...
rf2048111111ozt4z7
04.01.2020 17:42
Какая параллель на карте полушарий самая длинная?...
Ficksik12345
04.01.2020 17:42
Расплавится ли нафталин если его бросить в кипящую воду ,ответ обоснуйте (температура плавления нафталина 80 градусов цельсия темпиратура кипения воды 100 градусов) решение...
KIRAERM
04.01.2020 17:42
Открытую стеклянную колбу вместимостью 250 см кубических нагрели до 127 с, после чего ее горлышко опустили в воду. сколько граммов воды войдет в колбу, если она охладиться до 7 с?...
Fastikqq
04.01.2020 17:42
Прочитайте фрагмент. о каких врагах земли в нем идет речь? 1) немцах и турках 2) поляках и шведов 3) крымчаках и сибирцах 4) австрийцах и чехах «ныне же за грехи так нас всех поубавилось,...
jenja117
04.01.2020 17:42
Вмагазин 15200 тетрадей в пачках по a штук в каждой и 9500 блокнотов в пачках по b штук в каждой обясни что показывают выражения 15200/a 9500/b15200/a+9500/b...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.