Строки Опции

[org777]

Задача в картинке, первая сверху.
Вот то, что сделал я, но оно че-то не катит((( Помогите, а?

Program org;
var c,s1:string;
begin
writeln('Vvedite stroku: ');
readln©;
while(c<>'') do
begin
if pos('absd',c)<>0 then
begin s1:=s1+copy(c,1,pos('abcd',c)-1);
delete(C,1,pos('absd',c)+3); end
else begin s1:=s1+c;
delete(c,1,length©); end;
end;
writeln('s1= ',s1);
readln;
end.

P.S. От этой задачи зависит мой автомат на сессии. Если я ее не сдам - придется экзамен сдавать((( Эту задачу сдать мне надо уже завтра... Помогите пожалуйста

Сообщение отредактировано: org777 - 19.12.2008 23:36

[volvo]

Вот видишь, ты сам не представляешь, что должно получиться, и убирать ли только те символы, которые идут подряд: ABCD (но и тут будет подвох, именно на той строке, что я показал. Удалишь одно вхождение ABCD, появится еще одно. Его что, тоже удалять? В первоначальной строке его ж не было), или вообще все символы A, B, C и D... Как же ты хочешь, чтоб тебе помогли. Условие надо уточнить... Выбери для себя что-то одно, подскажем, как это сделать...