Задача 1 Урок 16

Задача 1 Урок 16

Пользователь вводит символ k и строку s -- посчитайте сколько раз символ k встречается в строке s.

var i, p: integer;
    s, k: string;
begin
  p := 0;
  writeln('vvedi stoky');
  readln(s);
  writeln('vvedi simvol');
  readln(k);
  for i := 1 to length(s) do
    begin
      if(s[i] = k) then
        p := p + 1;
    end;
  writeln(p);
  readln();
end.