Определить число входящей в последовательность символов группы букв "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.