Определить количество слов, которые начинаются с буквы "А" или "а" - 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 acheck work apascode ';
   
   s:=' '+s;
   For i:=1 to Length(S) do
     If (S[i] in AA) and (S[i-1]=' ') then Inc(numA);
   Writeln(numA);
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.143 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы