Question

с клавиатуры вводится предложение, в котором слова разделены пробелами. определите, сколько слов в этом предложении начинается на букву "а".

Answer 1

var
  n,k,i: integer;
  s:string;
begin
write('Введите фразу: ');
readln(s);
k:=length(s)-1;
if s[1]='а' then n:=1;
for i := 1 to k do
      if (s[i]=' ') and (s[i+1]='а') then n:=n+1;
writeln('Число слов на а(рус.): ',n)
end.