Как в TPascal посчитать количество букв a в последнем слове, если даны натуральное число n и символы s1,...sn, которые являются группами символов, разделёнными пробелами (одним или несколькими) и не имеющими пробелов внутри?
Информатика 11 класс Строки и работа с ними в Pascal TPascal количество букв a последнее слово символы группы символов разделенные пробелами информатика 11 класс
Для решения задачи о подсчете количества букв 'a' в последнем слове, заданном в виде групп символов, разделенных пробелами, мы можем использовать следующий алгоритм:
Теперь давайте посмотрим на пример реализации этого алгоритма на языке TPascal:
program CountAInLastWord;
var
    n, i, count: integer;
    words: array of string;
    inputLine, lastWord: string;
begin
    count := 0;
    { Вводим количество символов }
    readln(n);
    setlength(words, n);
    { Вводим символы и объединяем их в одну строку }
    inputLine := '';
    for i := 0 to n - 1 do
    begin
        read(words[i]);
        inputLine := inputLine + words[i] + ' ';
    end;
    { Убираем лишние пробелы и находим последнее слово }
    lastWord := '';
    for i := length(inputLine) downto 1 do
    begin
        if (inputLine[i] <> ' ') then
            lastWord := inputLine[i] + lastWord
        else
            break;
    end;
    { Подсчитываем количество 'a' в последнем слове }
    for i := 1 to length(lastWord) do
    begin
        if lastWord[i] = 'a' then
            count := count + 1;
    end;
    { Выводим результат }
    writeln('Количество букв a в последнем слове: ', count);
end.
В этом коде мы:
Таким образом, данный алгоритм позволяет эффективно подсчитать количество букв 'a' в последнем слове из введенных символов.