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

Урок 17

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

var s: string;
    c: char;
    i, t: integer;

begin
  t := 0;
  writeln('Введите строку');
  readln(s);
  writeln('Введите символ');
  readln(c);
  for i := 1 to length(s) do
    if (s[i] = c) then
      inc(t);
  writeln(t);
  readln();
end.

КОНСОЛЬ

Введите строку
wegsednhdrfgndszfsghwsrfh
Введите символ
d
3
vedro-compota's picture

засчитано

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