Текст (например, арифметическое выражение) содержит многократно вложенные круглые скобки. исправить его, оставив скобки первого уровня круглыми, второго – заменить на квадратные, третьего и последующих – на фигурные. убедиться в корректности использования скобок. пример. ln(sin((a+b)c-d)) заменить выражением ln{sin[(a+b)c-d]}.

//PascalABC.NET 3.1 сборка 1239
var
    brackets: array [0..2, 0..1] of char := (('{', '}'), ('[', ']'), ('(', ')'));

begin
    var s := ReadlnString();
    var counter := 0;
    var max_depth := 0;
    
    for var i := 1 to s.Length do
    begin
        if s[i] = '(' then counter += 1
        else if s[i] = ')' then counter -= 1
        else continue;
        if counter < 0 then begin
            writeln('brackets error');
            Halt;
        end;
        if counter > max_depth then max_depth := counter;
    end;
    
    counter := 0;
    for var i := 1 to s.Length do
    begin
        if s[i] = '(' then counter += 1
        else if s[i] = ')' then counter -= 1
        else continue;
        
        if (counter = max_depth - 1) and (s[i] = '(') then s[i] := brackets[1, 0]
        else if (counter = max_depth - 2) and (s[i] = ')') then s[i] := brackets[1, 1]
        else if (counter = max_depth - 2) and (s[i] = '(') then s[i] := brackets[0, 0]
        else if (counter = max_depth - 3) and (s[i] = ')') then s[i] := brackets[0, 1];
    end;
    
    writeln(s);
end.

1.V=24*2=48 байт = 384 бита

2.192 символа на стр- 30720 символов. Мощность алфавита 256 - значит в алфававите 256 знаков. 2 в степени восемь - равно 256.весь алфавит можно закодировать одним байтом (в одном байте - как раз восемь бит, степень двойки. Бит - принимает ДВА значения - 0 и 1 - отсюда основание 2, которое возводим в восемь :) ) на каждый символ текста надо потратить один байт памяти. Итого получаем 30720 БАЙТ. в одном КИЛОБАЙТЕ 1024 байта. Делим 30720 на 1024 получаем 30 КБайт.

3.в 2 раза уменьшился

4

1024000/8=128000 (перевели в байты) 

128000/1024=125кбайт/сек (перевели в килобайты) 

125*5= 625 килобайт

5.

всего используется 12 букв + 10 цифр = 22 символа 

для кодирования 22 вариантов необходимо использовать 5 бит, так как , т.е. 4 бит не хватит (они позволяют кодировать только 16 вариантов), а 5 уже достаточно 

таким образом, на каждый символ нужно 5 бит (минимально возможное количество бит) 

полный номер содержит 6 символов, каждый по 5 бит, 30 бит один номер. 

по условию каждый номер кодируется целым числом байт (в каждом байте – 8 бит), поэтому требуется 5 байт на номер ( ), 4 байтов не хватает, а 5 – минимально возможное количество 

на 32 номеров нужно выделить 160 байтов приблизительно 192байта 

правильный ответ – 160байт...т.к 32*5=160 или приблизетельно 192байта.

Объяснение:

Увы, нет.

...var Y:array[1..N] of real... ошибка в написании, компилятор сообщит, что тип параметра не может быть описанием массива с границами. Пример:

var a:array [1..n] of real;                                                                                  Procedure ab(var b:array [1..n] of real);

К сожалению переменная и формальный параметр не одного типа.

Стоит использовать Type:

type ba= array [1..n] of real;                                                                                  var a: ba;                                                                                                   Procedure ab(var b:ba);