<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(30, -50, 50);
a.Println;
Writeln('Сумма нечетных значений равна ', a.Where(t -> t.IsOdd).Sum);
var n := ReadInteger('A=');
Print('Искомые индексы:');
a.Select((v, i)-> (v, i + 1)).Where(t -> t[0] > n)
.Select(t -> t[1]).Println;
n := ReadInteger('k=');
if a.Any(t -> t mod n = 0) then Println('Есть кратные')
else Println('Нет кратных')
end.
Может быть использовано
10 цифр+ 26 строчных букв + 26 прописных + 6 спец символов = 68 символов всего.
Для кодирования 68ми символов достаточно диапазона чисел от 0 до 67
(2^6=64)<67<(2^7=128)
Таким образом необходимо минимум 7 бит на символ.
7*9=63 бита на один пароль.
63*100=6300 битов на 100 паролей.
6300/8 = 787,5 байт.
Округляем в большую сторону - ответ 788 байт
Для растрового изображения сохраняется цвет каждого пикселя. Сверху накладываются разнообразные сжатия
Векторные изображения сохраняются в виде описания параметров графических примитивов из которых они состоят
4) 1
5) 2
(3) возможно 2/3/4)