Question

Разработать программу которая для заданной строки s удаляет из неё последовательность символов расположенных между круглыми скобками(считается,что в строке ровно одна пара круглых скобок) Pascal ABC.net Срочно,плиз

Answer 1

Begin
  var s := ReadlnString();
  var i1 := s.IndexOf('(');
  var i2 := s.IndexOf(')');
  if(i1 <> -1) and (i2 <> -1) then
    s := s.Remove(i1 + 1, i2 - i1 - 1);
  s.Println
end.

Answer 2

Конечно, вот пример программы на языке Pascal ABC.NET, которая удаляет последовательность символов между круглыми скобками в заданной строке:

pascalCopy code
program RemoveSubstringBetweenParentheses;

var
  s: string;
  openBracketIdx, closeBracketIdx: Integer;

begin
  // Ввод строки с круглыми скобками
  Write('Введите строку с круглыми скобками: ');
  ReadLn(s);

  // Находим индексы открывающей и закрывающей скобок
  openBracketIdx := Pos('(', s);
  closeBracketIdx := Pos(')', s);

  // Проверяем, что обе скобки найдены
  if (openBracketIdx > 0) and (closeBracketIdx > 0) then
  begin
    // Удаляем подстроку между скобками
    Delete(s, openBracketIdx, closeBracketIdx - openBracketIdx + 1);

    // Выводим результат
    WriteLn('Результат: ', s);
  end
  else
  begin
    WriteLn('Ошибка: не найдены круглые скобки в строке.');
  end;
end.

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

Примечание: Убедитесь, что вы используете верный синтаксис для компиляции и выполнения программы в Pascal ABC.NET.