задача 1 урок 17

задача 1 урок 17

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

РЕШЕНИЕ

program task_1_lesson_16;
var
  k: char;
  s: string;
  i, count: integer;
begin
  count := 0;
  writeln('vvedite simvol : ');
  readln(k);
  writeln('vvedite stro-ku : ');
  readln(s);
  for i := 1 to length(s) do
    if s[i] = k then
      count += 1;
  writeln('simvol ', k,' vstrechaetsy v stokr ', count,' raz');
  readln()
end.