С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc. Pascal...

Question

С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc.
Pascal ABC

Answer 1

Var
   S:string;
   i,k:integer;
Begin
k:=0;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S)-2 do
    if S[i]='a' then
       if S[i+1]='b' then
          if S[i+2]='c' then
             k:=k+1;
WriteLn('Искомое количество: ',k);
End.