Как в 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' в последнем слове из введенных символов.