Удалить из строки все группы букв вида abcd

[Григорийpnz]

Дана S-строка символов длиной n.Удалить из строки все группы букв вида abcd.Ребят если можно,напишите объяснение и пояснение решения...

[puporev]

Идешь по строке с конца, чтобы не сбить нумерацию массива
for i:=length(s) downto 1 do
если встречаешь такое сочетание букв
if copy(s,i,4)='abcd'
то удаляешь его
then delete(s,i,4);

[Григорийpnz]

Напиши решение....Я не понимаю

[puporev]

Напиши решение....Я не понимаю

Ну тогда оно тебе и не надо.

[Alter]

Куда вставить догадаетесь:

 s := 'gfdgabcd dfgdfgdabcdfgdfgdf g'; // откуда удалить
 substr := 'abcd'; // что удалять
while pos(substr, s)>0 do
 delete(s, pos(substr, s), length(substr));

[alex_fcsm]

uses crt;
var s:string;
    i:integer;

begin
clrscr;{очищаем экран}
Readln(s); {считываем строку}
repeat
i:=pos('abcd',s); {ищем начало вхождения строки abcd}
if i<>0 then delete(s,i,4); {вырезаем ее }
until i=0; {если ничего не нашли}
writeln(s);
end.