Даны натуральное число n и символы s1, ..., sn. Группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Подсчитать количество букв «a» в последнем слове данной последовательности.

Напишите программу на Turbo Pascal.

Нужно считать последовательность из n символов, найти последнее слово (группу символов после последнего пробела) и посчитать, сколько раз в нём встречается буква a.

Идея:

1. Читаем все n символов.

2. Запоминаем текущую группу символов (текущее слово).

3. Когда встречаем пробел, текущее слово заканчивается. Если после него будут ещё символы, они образуют новое последнее слово.

4. После окончания ввода подсчитываем буквы a в последнем сохранённом слове.

Программа на Turbo Pascal:

pascal
program CountAInLastWord;

var
  n, i, count: integer;
  ch: char;
  lastWord: string;

begin
  readln(n);

  lastWord := '';

  for i := 1 to n do
  begin
    read(ch);

    if ch = ' ' then
      lastWord := ''
    else
      lastWord := lastWord + ch;
  end;

  count := 0;

  for i := 1 to length(lastWord) do
    if lastWord[i] = 'a' then
      count := count + 1;

  writeln(count);
end.

Например, для последовательности:

3
ab c aa

последнее слово — aa, поэтому программа выведет:

2

Так как в последнем слове две буквы a.