напишите пожалуйста прогу!

[tim777777]

составьте пжл программу на нахождение количества строки "ас" в заданном тексте!!!!!! заранеее благодарю!!!!!

[Манжосов Денис :)]

поиск подстроки в строке delphi

[Serge_Bliznykov]

просто для примера, один (подчёркиваю - лишь ОДИН из вариантов решения):

var s : string;
  iCnt  : integer;
begin
  WriteLn('Vvedite stroku:');
  Readln(s);
  iCnt := 0;
  while Pos('ас',s)>0 do begin
     delete(s,Pos('ас',s), 2);
     inc(iCnt)
  end; 
  WriteLn('Sochetanie "ac" vstrechaetsya ',iCnt:1,' raz.');
end.