Строки Опции

[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

[Unconnected]

Группы букв вида abcd - это значит именно abcd, или возможно wxyz?

Добавлено через 4 мин.
Если именно 'abcd', то можно попробовать так:

const s='abcd';
var a,n:integer;
    s2:string;
    s3:string[4];
    x:char;
begin
  s2:='';
  writeln('Введите N');
  readln(n);
  for a:=1 to n do
  begin
    writeln('Введите символ №',a);
    readln(x);
    s2:=s2+x;
  end;
  writeln;
  writeln(s2);
  for a:=1 to n-4 do
  begin
    s3:=copy(s2,a,4);
    if s3='abcd' then begin
                        delete(s2,a,4);
                      end;
  end;
  writeln(s2);
  readln;
end.

Сообщение отредактировано: Unconnected - 20.12.2008 0:05