Определить количество слов, которые начинаются с буквы "А" или "а" - Turbo Pascal
Формулировка задачи:
Строчки!!!
Дано некоторый текст. Группы символов, которые разделены пробелами(одним или несколькими) и не содержат внутри себя пробелов, будем называть словами. Будем считать, что текст всегда начинается со слова. Определить количество слов, которые начинаются с буквы "А" или "а".
Код к задаче: «Определить количество слов, которые начинаются с буквы "А" или "а" - Turbo Pascal»
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.
14 голосов, оценка 4.143 из 5
СОХРАНИТЬ ССЫЛКУ