Надоело под Рафой3L скрываться
затянулся спор больно, bro lmikle, у ТС в задании указано
Цитата:
3) Дана строка. Удалить из неё всё группы букв "abcd".
|
поэтому, "чтоб препод не догадался" достаточно и банального
Код:
var
i: integer;
s: string;
begin
s:= 'abcd4AbcdABCDdrewabds29abdcabcdabcdwerteds';
if Length(s) < 5 then Exit;
for i := Length(s) downto 1 do
if i >= 4 then
if s[i-3]+s[i-2]+s[i-1]+s[i] = 'abcd' then Delete(s,i-3,4);
// Result: s = '4AbcdABCDdrewabds29abdcwerteds'
end;
похоже учёл возможные вылеты и ошибки
З.Ы.Оффтоп:
Цитата:
...Вроде, у меня с примером получилось короче, чем у тебя
|
Через pos() и я так могу , а вот без функций ВУ чисто перебором намного труднее кому-то аналог StringReplace было собирать :-)