Подсчитать количество слов, которые начинаются на букву “А”. - 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',} {то значение переменной а увеличиваем на единицу}
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д