Составить программу подсчета количества вхождений буквы "а" в заданном тексте - 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.
Объяснение кода листинга программы
- Объявляются три переменные: s (строка), k (целое число), i (целое число).
- С помощью функции readln() в переменную s считывается строка (текст).
- С помощью цикла for i := 1 to length(s) выполняется проверка каждого символа строки s.
- Если символ равен 'a', то с помощью функции inc(k) увеличивается значение переменной k.
- После выполнения цикла, в файл стандартного вывода write(k) выводится значение переменной k.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д