Определить число входящей в последовательность символов группы букв "abc" - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

3.Дана последовательность символов латинского алфавита,заканчивающаяся точкой.Определить число входящей в эту последовательность группы букв "abc". Заранее огромное спасибо!!

Решение задачи: «Определить число входящей в последовательность символов группы букв "abc"»

textual
Листинг программы
Var s, n  : string;
    i, k : integer;
begin
Writeln('Enter s');
Readln(s);
i:=1;
While (i<=length(s)) do
      begin
      If (copy(s, i, 3)='abc') then inc(k);
      inc(i);
      end;
Writeln('k=', k);
end.

Оцени полезность:

5   голосов , оценка 3.4 из 5
Похожие ответы