Подсчитать количество слов которые начинаются на букву а. - Turbo Pascal

Формулировка задачи:

дана строка символов. группы символов, разделенны пробелами(одним или несколькими) и не содержащие пробелов внутри себя, будем называть словом. Подсчитать количество слов которые начинаются на букву а.

Код к задаче: «Подсчитать количество слов которые начинаются на букву а. - Turbo Pascal»

textual
Const
  AA : Set of Char = ['a','A','а','А'];
Var 
  numA : Longint;
  S    : String;
  i    : Byte;
 
Begin
   numA:=0;
   S:='a it"s testing A staring for аcheck work Аpascode ';
   
   s:=' '+s;
   For i:=1 to Length(S) do
     If (S[i] in AA) and (S[i-1]=' ') then Inc(numA);
   Writeln(numA);
End.

11   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ