Строки - Pascal (98215)

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

1 задача! В заданном предложении, слова отделяются пробелами,за последним словом точка,определить количество слов начинающихся с буквы "с" 2 задача! В заданном положении посчитать,какая из букв первая или последняя встречается чаще! За ранее благодарен!!

Решение задачи: «Строки»

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

uses crt;
var s:string;
    i,k:byte;
begin
clrscr;
k:=0;
readln(s);
for i:=1 to length(s) do
 if ((s[i]='c') or (s[i]='C')) and ( not(s[i-1] in ['a'..'z','A'..'Z']))
  then k:=k+1;
writeln(k);
readln;
end.

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

Импортируется модуль CRT (Console I/O).
Объявляются переменные:
- s (строка) для хранения введенной строки;
- i (byte) для хранения текущего индекса символа в строке;
- k (byte) для хранения количества найденных символов.
Очищается экран.
Инициализируется переменная k значением 0.
Вводится строка с помощью функции readln(s).
Запускается цикл for для перебора всех символов в строке.
Внутри цикла проверяется, является ли текущий символ 'c' или 'C'.
Если символ является 'c' или 'C' и предыдущий символ не является буквой, то увеличивается значение k.
По завершении цикла выводится значение k.
Запрашивается ввод с помощью функции readln.