Question

Дана строка символов. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Найти количество слов, начинающихся с буквы б Желательно на паскале

Answer 1

===== PascalABC.NET =====

begin

 ReadString.ToWords.Count(c -> c[1].ToLower = 'б').Print

end.

Answer 2

Для нахождения количества слов, начинающихся с буквы "б", в данной строке на Pascal (Delphi), можно использовать следующий код:

pascalCopy code
program CountWordsStartingWithB;

function IsWordStartsWithB(word: string): boolean;
begin
  Result := (Length(word) > 0) and (word[1] = 'б') or (word[1] = 'Б');
end;

function CountWordsStartingWithBInString(inputString: string): integer;
var
  words: TStringDynArray;
  i, count: integer;
begin
  words := SplitString(inputString);
  count := 0;
  for i := Low(words) to High(words) do
  begin
    if IsWordStartsWithB(words[i]) then
      Inc(count);
  end;
  Result := count;
end;

var
  inputString: string;
  wordsWithB: integer;
begin
  WriteLn('Введите строку символов:');
  ReadLn(inputString);

  wordsWithB := CountWordsStartingWithBInString(inputString);

  WriteLn('Количество слов, начинающихся с буквы "б": ', wordsWithB);
end.

Программа просит ввести строку символов, затем разбивает ее на слова и считает количество слов, начинающихся с буквы "б" (или "Б"). Разделение на слова происходит с помощью функции SplitString, которая разделяет строку на массив слов по пробелам (или нескольким пробелам). Функция IsWordStartsWithB проверяет, начинается ли слово с буквы "б" или "Б".

Пожалуйста, убедитесь, что ваша среда разработки поддерживает функции и типы данных, используемые в коде.