• Вопрос по информатике:

    Дана строка. Определить, сколько раз входит в неё группа букв abc.

    • Автор:

      dahlia

  • program raf105;

    var

     s: string;

     i,j,counter: integer;

    begin

    write('Введите строку: ');

    readln(s);

    for i:=1 to length(s) do

     if (s[i] = 'a') and

        (s[i+1] = 'b') and

        (s[i+2] = 'c')

       then counter:= counter + 1;

    writeln('Количество "abc" в строке: ',counter);

    end.

    PascalABC 3.4.2

    • Отвечал:

      claudialikq
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска