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

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

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

Код к задаче: «Подсчитать количество слов, которые начинаются на букву “А”. - 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.000 из 5


СОХРАНИТЬ ССЫЛКУ