С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc.

Question

С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc.

Answer 1

Var s: string;
    n,k: integer;
begin
  write('строка: ');  readln(s);
  k:=0;
  n:=pos('abc',s);
  if n>0 then
  repeat
    k:=k+1;
    delete(s,1,n+2);
    n:=pos('abc',s);
  until n=0;
  writeln(k);
end.

строка: fdrsabcde dsabcjhy abckjuy
3

строка: dscabgfre fhygdte
0

Comments

спасибо)