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

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

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

var i,k:integer; s:string;
begin
  s:='kikimora';
  for i:=1 to length(s) do
    if s[i]='k' then
      k+=1;
  writeln('k vstrecheno ',k,' raz');
  readln();
end.