Question

Сделать в Pascal ABC ,посчитать сколько раз в данной  строке встречается символ

Answer 1

var
    a: string;
    b: char;
    i, k: integer;

begin
    readln(a);
    readln(b);
    for i := 1 to length(a) do
        if a[i] = b then
            k := k + 1;
    writeln(k);
end.