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

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

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

var s: string;
    i, n: integer;
begin
  write('Введите произвольную строку: ');
  readln(s);
  writeln();
  for i := 1 to length(s) do
   if s[i] = 'k' then n += 1;
  if n > 0 then writeln('В строке символ k встречается ', n, ' раз')
  else writeln('В строке символ k отсутствует');
  readln();
end.