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

Arisha5554 Arisha5554    2   28.08.2019 16:30    1

Ответы
avisuale avisuale  06.10.2020 00:51
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика