Задача
Вводится строка символов. Определить число вхождений в нее группы букв вида “abc”.
Мое решение
program PR_3_28;
uses crt;
var
k,n,m:char;
x:integer;
begin
clrscr;
Write('Введите строку символов в конце поставьте точку!');
Read(k,n,m);
While (k<>'.')and(n<>'.')and(m<>'.') do
begin
if (k='a')and(n='b')and(m='c')
then x:=x+1
else if (n='a')and(m='b')and(k='c')
then x:=x+1
else if (m='a')and(k='b')and(n='c')
then x:=x+1;
read(k,n,m);
end;
Writeln('Число групп символов abc=',x);
readkey;
end.
Вообщем программа работает не совсем правильно определяет только если (abc) попадается через 3 символа, например так (abcfgtabc), а вот такое её не под силу (adabcas)
Только начал учить паскаль. Не пинайте сильно