<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMax;
Writeln('максимальный a[', i + 1, ']=', a[i]);
i := a.IndexMin;
Writeln('минимальный a[', i + 1, ']=', a[i])
end.
<h2>-2 0 -3 0 3 -2 1 -9 -9 -2</h2><h2>максимальный a[5]=3</h2><h2>минимальный a[8]=-9</h2>
1) 0(False, ложь)
2)1(True, правда)
Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...
Обозначим:
N - мощность алфавита;
V - объем сообщения (в битах);
K - количество букв в сообщении;
i - количество бит на 1 символ.
Формулы:
N = 2^i;
i = V/K
Переведем объем из КБ в байты: 35* 8 * 1024 = 286720 бит.
Чтобы найти мощность алфавита, нужно найти количество бит на символ. Используем формулу: i = V/K.
i = 286720 бит/71680 симв. = 4 бита.
Зная i, можем найти мощность алфавита: N = 2^i.
N = 2^4 = 16.
Ответ: 16.
Использовать Чертежник
алг
нач
сместиться в точку (1,13)
нц 3 раз
Фигура
кц
кон
| Фигура
алг Фигура
нач
сместиться на вектор (1,-5)
опустить перо
сместиться на вектор (-1,0)
сместиться на вектор (0,5)
сместиться на вектор (4,0)
сместиться на вектор (0,-1)
сместиться на вектор (-3,0)
сместиться на вектор (0,-4)
сместиться на вектор (1,0)
сместиться на вектор (0,3)
сместиться на вектор (2,0)
сместиться на вектор (0,1)
поднять перо
сместиться на вектор (0,-1)
опустить перо
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-2)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (1,0)
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,2)
поднять перо
кон
