Урок 16 (Решенная задача 1)

Урок 16 (Решенная задача 1)

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

var s : string;
    i, c : integer;
begin
  c := 0;
  writeln('vvedite stroky');
  readln(s);
  for i := 1 to length(s) do
   if (s[i] = 'k') then
    c := c + 1;
  writeln('kol-vo k = ', c);
end.
vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)