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

tom0291837465 tom0291837465    3   06.06.2019 11:20    2

Ответы
захар189 захар189  06.07.2020 16:27
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика