Даны натуральное число n, символы SSn, определить число вхождений группы букв abc. Символьный и строковый тип

Даны натуральное число n, символы S1...Sn, определить число вхождений группы букв abc. Символьный и строковый тип. Помогите пожалуйста.. очень прошу..

в паскале..

    uses Crt;
    var d,n,i,k:integer;

     

           s:string;
    begin
         clrscr;
          writeln('Введите n:');
           readln(n);
           repeat
               clrscr;
               readln(s);
          until length(s)=n;

  • Program StrokABC; 

     

  •       d:= length(s);
          for i:=1 to d do
          if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then k:=k+1;
              writeln('строка abc входит в данную строку ',k,' раз');

            readkey;  
    end.

     


See also: