Дана строка символов. найти количество слов начинающихся на букву а . через паскаль пожалуйста ничего в нем не соображаю а иветешник задолбал

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a:string; i:integer; begin readln(a); a:=a+' '; while length(a)>0 do begin if a[1]='a' then inc(i); delete(a,1,pos(' ',a)); end; writeln(i); end.