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

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

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

var s :string;
    k :char;
    i, n :integer;

begin
  s := 'Lorem Ipsum is simply dummy text of the printing and typesetting industry';
  writeln('Enter character : ');
  readln(k);
  n := 0;
  for i := 1 to length(s) do
    if k = s[i] then
      n := n + 1;
  writeln(n);
end.