Частота встречаемости символа в строке

Определить, как часто встречается определенный символ в строке.

Описание переменных:

• s – строка;
• c – символ;
• count – количество найденных символов в строке;
• freq – частота встречаемости, определяемая по формуле (n / len) * 100.

Алгоритм решения задачи:

1. Получить строку и символ.
2. Определить длину строки.
3. Перебрать каждый символ в строке:
   1. если очередной символ строки совпадает с заданным символом, то увеличить счетчик символов count на единицу.
4. Вычислить значение частоты встречаемости и вывести ее на экран.

Программа на языке Паскаль:

var
    s: string;
    c: char;
    count, i: byte;
    freq: real;
    
begin
    write('String: ');
    readln(s);
    write('Char: ');
    readln(c);

    count := 0;

    for i:=1 to length(s) do
        if s[i] = c then
            count := count + 1;

    freq := (count / length(s)) * 100;

    writeln('Frequency: ', freq:5:2, '%');
end.

Пример выполнения:

String: hello world
Char: l
Frequency: 27.27%