1. Определим размер алфавита, т.е. количество используемых символов. 20 букв и 9 цифр - это 29 символов. Чтобы закодировать 29 разных символов нужно 5 бит ( 2⁴ < 29 < 2⁵ ). 2. Определим длину личного кода. В коде 15 символов, каждый символ занимает 5 бит. Всего потребуется 5×15=75 бит. Поскольку код занимает целое число байт, переводит 75 бит в байты. 75/8 = 9.375 ≈ 10 байт. 3. Номер отдела можно закодировать 1 байтом (в байт помещается число от 0 до 255). 4. Найдем количество дополнительных байт. На пропуске 20 байт, из них 10 заняты кодом, 1 - номером отдела, остаются 20-10-1 = 9 байт.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var k:=ArrRandom(ReadInteger('n='),-50,50); k.Println; var (u,j):=ReadInteger2('Введите u и j через пробел:'); Writeln('Cумма первых ',u,' элементов ',k.Take(u).Sum); Writeln('Произведение последних ',j,' элементов ', k.TakeLast(j).Aggregate(BigInteger(1),(p,q)->p*q)); end.
Пример n= 20 39 -18 -16 5 -30 50 -10 -9 34 -33 31 -26 31 -29 8 48 38 37 32 22 Введите u и j через пробел: 12 13 Cумма первых 12 элементов 17 Произведение последних 13 элементов 2781117283830792192
CLS
FOR X = -4 TO 4 STEP 0.5
Y = X*X-2*X+5
PRINT Y
NEXT
END