Составить программу подсчета количества вхождений буквы "а" в заданном тексте - 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.
В чем проблема? Поправьте, пожалуйста.

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

textual
Листинг программы
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.

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 4.462 из 5
Похожие ответы