Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
magakhass
09.09.2022 05:23 •
Информатика
Склавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".
Показать ответ
Ответ:
Polino4ka171
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 оценок)
Популярные вопросы: Информатика
РОЗОЧКА37563
10.11.2020 21:45
IP адреса Почините адрес, приведя его в привычный вид (десятиричный с точками): 1)0x01020304 2)0x1A2B3C4D 3)025304432315 4)2870097101 5)1...
хранитель7
07.07.2020 12:15
1) Написати програму, яка отримує від користувача назву файла і його розширення. Потрібно вивести на екран тільки розширення веденого файла. Використовувати методи .split() і repr....
62620243323
10.04.2023 07:54
В python самым простым нужно поменять местами первую и последнюю цифру четырёхзначного числа. Никаких сложных слов не нужно, только input и % и \\...
Elirgon88
24.05.2020 11:04
Вводится несколько строк (не более 20), в которых сначала записаны инициалы и фамилии работников фирмы. Ввод заканчивается пустой строкой. Отсортировать строки в алфавитном порядке...
Carlso3000
13.05.2023 05:14
Help! Есть определенная математическая формула, я ее перевожу на код VB(Visual Basic) но проблема с возведением в степень, я подозреваю... много раз переписывала, так и не могу понять,...
Kir2905
17.04.2023 08:39
4. Возьмите один раунд из пяти презентационных программ и запишите информацию и отличия от других программ!...
VikaKharitoniv
14.01.2023 16:00
Зачем человек использует роботов с Д/З ...
ksenia231106
01.08.2021 18:42
1.статьи каких литературоведов о писателях и их произведениях вам особенно были полезны?чем ? подготовите ответ рассуждение...
alisha15sherban
22.12.2021 15:02
Г.сапгир стих леса чудеса разделить на части составить план...
единорог106
22.12.2021 15:02
В геометрической прогрессии b3= 27, b1=3. Найти b5....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.