tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры вводится предложение,
Склавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".
tom0291837465
3 06.06.2019 11:20
2
Ответы
захар189
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
BlackPupils
07.05.2020 02:33
3. Создайте программу для вычисления среднего арифметического положительных чисел, первое из которых равно 100, а каждое следующее меньше предыдущего на заданное...
9872105
07.05.2020 02:33
Информационное сообщение объёмом 750 бит состоит из 375 символов.Каков информационный вес каждого символа этого сообщения и какова мощность алфавита,с которого...
Zero00000
07.05.2020 02:54
Списке учеников вашего класса было пропущено несколько фамилий . Каким образом их можно вставить в текст?...
маша3025
01.09.2019 23:50
Втерминологии сетей tcp/ip маской сети называется двоичное число, определяющее, какая часть ip-адреса узла сети относится к адресу сети, а какая - к адресу самого...
01.09.2019 23:50
Сканируется цветная фотография размером 10 x 15 см. разрешающая сканера 300 dpi. глубина цвета 16 бит. какой объём информации будет иметь полученный файл?...
Yoss12
29.07.2019 18:00
Пусть дан фрагмент электронной таблицы в режиме в режиме отображения формул. в диапазоне ячеек a3: a6 скопировали формулу из ячейки a2 (a2 =частное (a1; b$1) формулу...
xKarishax
29.12.2020 17:41
Вставьте пропущенные буквы. Выдели окончания у имен прилагательных. Опредли падеж и род у имен прилагательных. После вчерашн… дождя, о малейш… несчасть…, запахло...
daniilznanija0
29.12.2020 17:41
ответ в виде блок схемы) 5) Разработать схему алгоритма для ввода значения величины X целого типа, присваивания величине Y действительного типа значения 2.5 , вычисления...
bikosh02
29.12.2020 17:40
Скласти програму, яка міняє місцями два будь-яких елемента побічної діагоналі квадратного масиву (перевод на русский: Составить программу, меняющую местами два...
АлиOчкА
29.12.2020 17:40
Охарактеризуйте взаимосвязь Физического воспитания с Нравственным воспитанием...
Популярные вопросы
Тетрадь стоила n рублей, а ручка -- m рублей. записать стоимость...
2
Написать 6-7 предложений с причастием и причастным оборотом...
3
Играть с друзьями -это словосочетание...
2
2/3 отрезка прямой 12 см. чему равен весь отрезок?...
2
Сяпала калуша по напушке и увазила ляпупу - оее ляпупа како...
3
«найдите значение коэффициента а в уравнение ах+5у=-4а если...
3
Сочинение золотая осень по картине левинтона. план 1.осенний...
3
Справедливо ли говорить об открытии америки европейцами, если...
1
Сочинение-рассуждение на тему моя любимая телепередача...
3
Сочинение на тему я- неодушевленный предмет...
3
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.