Question

СРОЧНО! Напишите код в ТУРБО паскаль, пожалуйста. Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

Answer 1

Program abc;var a, b, i: integer; s: string;begin a := 0; b := 0; read(s); for i := 1 to length(s) do begin if s[i] = '(' then inc(a) else if s[i] = ')' then inc(b); end; if a = b then writeln('Одинаковое.') else writeln('Разное.');end.

Answer 2

Конечно, я могу помочь вам с написанием кода на Turbo Pascal для проверки, одинаковое ли число открывающихся и закрывающихся скобок в данной строке. Вот пример кода:

program CheckBrackets;

var
  inputString: string;
  openCount, closeCount: integer;
  i: integer;

begin
  writeln('Введите строку:');
  readln(inputString);

openCount := 0;
  closeCount := 0;

for i := 1 to length(inputString) do
  begin
    if inputString[i] = '(' then
      openCount := openCount + 1
    else if inputString[i] = ')' then
      closeCount := closeCount + 1;
  end;

if openCount = closeCount then
    writeln('Число открывающихся и закрывающихся скобок одинаково.')
  else
    writeln('Число открывающихся и закрывающихся скобок неодинаково.');

readln;
end.

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

Обратите внимание, что код написан на Turbo Pascal и может быть скомпилирован и запущен в среде разработки Turbo Pascal.