Составить программу подсчета количества вхождений буквы "а" в заданном тексте - Free Pascal

Формулировка задачи:

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

                    Листинг программы
                
 
                        
                          
                    
uses strutils;
var
m:array of string;
c:char;
n,s,i:integer;
begin 
readln(m);
c:='a';
n:=0;
s:=length(m);
for i:=0 to s do
if m[i] = c then
n:n+1;
writeln('кол-во букв А в тексте: ', n);
readln;
end.

В чем проблема? Поправьте, пожалуйста.

Решение задачи: «Составить программу подсчета количества вхождений буквы "а" в заданном тексте»

Листинг программы

var 
s:string;
k,i:integer;
begin
   readln(s);
   for i:=1 to length(s) do 
      if (s[i]='a') then inc(k);
   write(k);
end.

Объяснение кода листинга программы

Объявляются три переменные: s (строка), k (целое число), i (целое число).
С помощью функции readln() в переменную s считывается строка (текст).
С помощью цикла for i := 1 to length(s) выполняется проверка каждого символа строки s.
Если символ равен 'a', то с помощью функции inc(k) увеличивается значение переменной k.
После выполнения цикла, в файл стандартного вывода write(k) выводится значение переменной k.

Оцени полезность:

13 голосов , оценка 4.462 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы