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

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

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

Решение:

program u17z01;
var s:string;
  i,n:integer;
begin
  writeln('vvedite stroku:');
  readln(s);
  n:=0;
  for i:=1 to length(s) do
  begin
    if (s[i]='k') then
      n:=n+1;
  end;
  writeln('Simvol "k" v vashey stroke vstrechaetsya ',n,' raz(a)');
  readln();
end.

Консоль:

vvedite stroku:
askl;jdfklasdhkjalshd
Simvol "k" v vashey stroke vstrechaetsya 3 raz(a)