Составить программу подсчета количества вхождений буквы "b" в заданном тексте - Pascal ABC
Формулировка задачи:
Задача:
Составить программу подсчета количества вхождений буквы "b" в
заданном тексте.
Решение задачи: «Составить программу подсчета количества вхождений буквы "b" в заданном тексте»
textual
Листинг программы
type
ar = array [char] of integer;
var
s: string;
cc,ch: char;
c: ar ;
begin
writeln('Введите строку:');Readln(s);
writeln('Введите символ:');Readln(ch);
foreach cc in s do
inc(c[cc]);
Write('Найдено: ',c[ch]);
end.
Объяснение кода листинга программы
- В начале объявляются необходимые переменные: s (строка), ch (символ), c (массив для подсчета вхождений).
- Затем выводится приглашение для ввода строки и символа.
- В цикле foreach происходит итерация по каждому символу в строке s.
- Для каждого символа в строке увеличивается значение в соответствующем элементе массива c.
- После завершения цикла выводится найденное количество вхождений символа.