Склавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".

Показать ответ

Ответ:

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 оценок)

Популярные вопросы: Информатика

алінка20

05.12.2020 17:15

Воперативной памяти могут храниться а)данные и адреса б)программы и адреса в)программы и данные г) данные и быстроедйствие...

voxlemap

05.12.2020 17:15

Какой объем видеопамяти необходим для хранения четырех страниц изображения,при условии, что разрешающая дисплея равна 640х480 точек,а используемых цветов 32? (ответ в кб)...

iuliazhdanovaЮлька

24.09.2021 07:42

Можете с 1). вычислить информационный объем печатного издания в котором 78 страниц, на странице 60 строк, в строке 29 символов. ответ представить в кбайтах. (рассчитать для трех алфавитов...

Huran

24.09.2021 07:42

Информационное сообщение передается со скоростью 35 символов в минуту. алфавит передаваемого сообщения состоит из 128 символов. какова скорость информационного потока....

varkraft

24.12.2021 12:43

Накидайте большой автоматы символами на клавиатуре !...

JeanSu

24.06.2020 15:30

Задачи на списки в Python: 1. Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, …. 2. Дан массив размера N. Найти номера тех элементов...

maestro27568

06.09.2022 12:26

Нужно написать программы на Си. и) Найти сумму элементов, абсолютное значение которых больше среднеарифметического модулей отрицательных элементов. д) В матрице А(4-строки,3-столбца)...

bobr528

15.01.2023 07:36

Дано пятизначное число x определить сколько в нем нечетных чисел паскаль 7 класс...

fil2143878

12.12.2021 12:09

(№ 888) у исполнителя квадратор две команды, которым присвоены номера: 1. возведи в квадрат 2. прибавь 2 исполнитель работает только с натуральными числами. составьте алгоритм получения...

ElinaN28

12.01.2022 20:53

найти ошибку, не понимаю вообще Создать и законспектировать в тетрадь программу расшифровки названия специальности по введенному с клавиатуры коду. Подсказка: Используйте оператор...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку