Question

Дана строка содержащая слова отделенные пробелом. Определить сколько слов в строке начинается на "а". Написать на Паскале. Помогите, пожалуйста!!!

Answer 1

var s: string;

i,k: integer;

begin

readln(s);

k:=0;

if s[1]<>' ' then insert(' ',s,1);

for i:=1 to length(s)-1 do

if (s[i]=' ') and (s[i+1]='a') then

k:=k+1;

write('k=',k);

end.

Answer 2

Конечно! Вот пример программы на Pascal, которая подсчитывает количество слов в строке, начинающихся с буквы "а":

pascalCopy code
program CountWordsStartingWithA;

uses
  SysUtils;

function CountWordsWithA(inputString: string): Integer;
var
  words: TStringDynArray;
  i, count: Integer;
begin
  words := SplitString(inputString, ' '); // Разбиваем строку на слова

  count := 0;

  for i := 0 to High(words) do
  begin
    if Length(words[i]) > 0 then // Проверяем, что слово не пустое
    begin
      if UpCase(words[i][1]) = 'A' then // Проверяем первую букву слова
        Inc(count); // Увеличиваем счетчик, если слово начинается с 'a'
    end;
  end;

  Result := count;
end;

var
  input: string;
  wordCount: Integer;
begin
  WriteLn('Введите строку:');
  ReadLn(input);

  wordCount := CountWordsWithA(input);

  WriteLn('Количество слов, начинающихся на "а": ', wordCount);

  ReadLn;
end.

Вы можете ввести строку, а программа выведет количество слов в строке, начинающихся на "а".