РЕБЯТА! Delphi

[alex_fcsm]

я пришла на лингвиста, а не на порограммиста

код что вы кинули больно мудрен

Вот такие сообщения явно не располагают к помощи. Вам помогли? Помогли, будьте любезны разобраться. Что-то непонятно - спрашивайте. Тема начинает превращаться в флейм и флуд.

[ByAlex]

Вот, держи -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  s:string;
  i,pos1,n:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  n:=0;
  s:='dfdf (dfdf0df df) fd (dfdf) fdfd';
  Writeln(s);
  while n<>Length(s) do
  begin
    pos1:=0;
    for i:=1 to Length(s) do
    begin
      if s[i]='(' then
        pos1:=i;
      if (s[i]=')') and (pos1<>0) then
      begin
        Delete(s,pos1,(i+1)-pos1);
        n:=0;
        Break;
      end;
      Inc(n);
    end;
  end;
  Writeln(s);
  readln;
end.

[Vanta11a]

Меняем

  s:='dfdf (dfdf0df df) fd (dfdf) fdfd';

на

  s:='dfdf (dfdf0df df) fd (dfdf) f)d)fd)';

Получаем fail. В задании не сказано, что количество открывающих и закрывающих скобок совпадает.

[ByAlex]

Сообщение от Vanta11a

Меняем

  s:='dfdf (dfdf0df df) fd (dfdf) fdfd';

на

  s:='dfdf (dfdf0df df) fd (dfdf) f)d)fd)';

Получаем fail. В задании не сказано, что количество открывающих и закрывающих скобок совпадает.

Дак я знаю! Простой пример показал, как убрать все, что находиться в скобках вместе со скобками.
Да и там условие не очень понятное! Убрать из последовательности все, что между скобками вместе со скобками.

[Zer0]

<to_delete>

[Marika Polskyh]

спасибо тем кто помагал и нормально воспринимал все)(ByAlex vs Mad_Cat)
помогли!))
А те кто больно умные я за вас рада, что у вас есть познания в этой отрасли, но вот с культурой, этикой и терпением явно проблемы