С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc.
Answers & Comments
srzontmp
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.
Answers & Comments
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