Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Удалить часть символьной строки, заключенной в скобки (вместе со скобками).

Ответ оставил Гость

Uses Crt;
var
  s:string;
  i,j:integer;
begin
  Writeln(Vvedite stroku: );
  Readln(s);
  i:=Pos((,s); j:=Pos(),s);
  if (i>0) and (j>0) and (j>i) then
    s:=Copy(s,1,i-1)+Copy(s,j+1,Length(s)-j);
  Writeln(Resultat: ,s);
  ReadKey
end.

Тестовое решение:
Vvedite stroku:
3*a-1/(2*a-5)/2
Resultat: 3*a-1//2