Строки Опции

[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 19:36

[org777]

Как-то странно он удаляет эти буквы... из строки "ab abcd aabcd bcdabcabcd" оставляет "ab a bcdbcadc"
Но все-равно спасибо! Я буду сдавать эту версию, твою, т.к. считаю, что она должна быть верной)

Сообщение отредактировано: org777 - 20.12.2008 7:49

[Lapp]

Как-то странно он удаляет эти буквы... из строки "ab abcd aabcd bcdabcabcd" оставляет "ab a bcdbcadc"
Но все-равно спасибо! Я буду сдавать эту версию, твою, т.к. считаю, что она должна быть верной)

Я бы сказал, он еще страннее работает: из любой строки делает одну единственную букву: s .

Но если исправить эту (как я полагаю) опечатку, то странны уже твои слова, org777. Потому что мне из строки:

ab abcd aabcd bcdabcabcd

- программа оставила вполне само собой разумеющееся:

ab  a bcdabc

А вообще, при в определении что правильно, а что нет, рекомендую все-таки больше принимать во внимание факты .