Question

Составить программу нахождения количества букв "а" в тексте ( на языке Паскаль )

Answer 1

Сделано 

(20 символов тоже тут)

Answer 2

Var
s:string;
i, m:integer;
begin
readln(s);
m:=0;
for i:=1 to length(s) do
if(s[i]='a') then m:=m+1;
writeln(m);
end.

Answer 3

Конечно, вот пример простой программы на языке Pascal для подсчета количества букв "а" в тексте:

program CountA;
var
  text: string;
  countA: integer;
  i: integer;
begin
  // Ввод текста с клавиатуры
  writeln('Введите текст:');
  readln(text);

// Инициализация счетчика букв "а"
  countA := 0;

// Проход по каждому символу в тексте
  for i := 1 to length(text) do
  begin
    // Если текущий символ - буква "а" (регистронезависимо), увеличиваем счетчик
    if (LowerCase(text[i]) = 'а') then
      countA := countA + 1;
  end;

// Вывод результата
  writeln('Количество букв "а" в тексте: ', countA);

// Ждем ввода, чтобы окно консоли не закрылось сразу
  readln;
end.

Как работает программа:

1. Вводится текст с клавиатуры. 2. Инициализируется счетчик букв "а". 3. Проход по каждому символу в тексте. 4. Если текущий символ - буква "а" (регистронезависимо), увеличивается счетчик. 5. Выводится результат - количество букв "а" в тексте.

Обратите внимание, что программа учитывает букву "а" в любом регистре (регистронезависимо). Если вам нужно учесть только строчные или заглавные буквы "а", вы можете соответственно изменить условие внутри цикла.