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

Предыдущий
вопрос Следующий
вопрос

Вот пример кода на Pascal для подсчета количества букв "a" в последнем слове последовательности:

program CountLettersA;
var
n, i, countA: integer;
s: string;
begin
countA := 0;
// Вводим число n
write('Введите количество символов: ');
readln(n);
// Считываем последовательность
for i := 1 to n do
begin
read(s);
// Подсчитываем количество букв "a" в слове
if i = n then
begin
for i := 1 to length(s) do
begin
if s[i] = 'a' then
countA := countA + 1;
end;
end;
end;
// Выводим результат
writeln('Количество букв "a" в последнем слове: ', countA);
end.

Программа сначала запрашивает количество символов в последовательности, затем считывает все символы и подсчитывает количество букв "a" только в последнем слове. Ответ выводится на экран.