Помогите пожалуйста составить программу ** ''Pascal ABC'') Дана строка, содержащая текст...

Question

Помогите пожалуйста составить программу на ''Pascal ABC'')

Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.

Answer 1

Var s:string;i,f,l:integer;a:string;
begin
readln(s);
read(a)
;f:=0;
l:=length(s);
for i:=l downto 1 do
begin
if s[i]=' ' then             
if s[i+1]='a' then f:=f+1;
end;            
 if s[1]='a' then f:=f+1;
writeln(f);
end.          

Comments

простите за тупизм, а как она работает?)

---

мы считываем строку, узнаем ее длину( переменная l ), затем проходим ее с конца до начала.Если в строке попался пробел, значит, закончилось слово и счетчик стоит перед самим словом, тогда проверяем последующий символ - с какой буквы оно начиналось.Если с нужной буквы, тогда прибавляем 1 к кол-ву ( переменная d). Когда заканчивается цикл, то счетчик стоит на 1ом по счету символе, то есть на начале слова, поэтому после цикла проверяем с какой буквы начиналось 1ое слово.

---

если нет каких-то дополнений к условию задачи, то программа работает

---

спасибо)