работа со строками...

[dem1993]

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

ребят есть предложение... если кто то до понедельника сделает мне правильно все лабы... я ему 500р на счет ложу... просто сессия совсем близко... осталось 6 лаб... если кому то интересно пишите на мыло dimon19931993@mail.ru я просто в безвыходном положении...

[dosha]

var
  s:string;
  z:string;
begin
  Read(s);
  if (Pos('(',s)<>0) and (Pos(')',s)<>0) then
  z:=Copy(s,Pos('(',s)+1,Length(s)-Pos('(',s)-1);
  Writeln(z);
  Readln;
  read;
end.

есль хоч помогу ася 631694469

[Hacker19_90]

pos1 := 0;
pos2 := 0;
for i := 1 to length(s) do
    if s[i] = '(' then
    begin
        pos1 := i+1;
        break;
    end;
for i := pos1 to length(s) do
    if s[i] = ')' then
    begin
        pos2:= i-1;
        break;
    end;
if (pos1 > 0) and (pos2 > 0) then
     for i := pos1 to pos2 do
         Write (s[i]);
else Writeln ('Скобок не обнаружили');

Если что ася есть в профиле!!!!
Обращайтесь

[rubius2008]

Если еще актуально готов помочь ася 600-927-970