МФ
Мария Фомичёва
Алгоритм таков:
-ввести строку
-ввести заданный символ
-перебрать все символы введенной строки и сравнивать с заданным символом, при совпадении увеличивать счетчик совпадений
-по окончании строки вывести значение счетчика.
нет?
for i := 1 to length(s) do if s[ i ] = ch) then inc(c);