Подсчитать количество слов, которые начинаются на букву “А”. - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Дан текст, слова в котором разделены хотя бы одним пробелом. Подсчитать количество слов, которые начинаются на букву “А”.

Решение задачи: «Подсчитать количество слов, которые начинаются на букву “А”.»

textual
Листинг программы
for n:=1 to length(s)-1 do  {Задается цикл по переменной n от первого до предпоследнего символа строки S}
   if (s[n]=' ') and (s[n+1]='a') then a:=a+1;  {Если текущий символ есть пробел, а следующий за ним символ 'а',}
                                                {то значение переменной а увеличиваем на единицу}
if s[1]='a' then a:=a+1;  {Если первый символ строки есть символ 'a',}
                          {то значение переменной а увеличиваем на единицу}

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы