Вот 2 презентации и сам доклад
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(10,-99,99); a.Println
end.
<u><em>Тестовое решение</em></u>
-12 -89 55 66 41 -31 17 -25 -34 -71
запишем условие: символы=40, N=64, I-?
решение: зная мощность алфавита, найдем вес одного символа
N=2^i, подставим в эту формулу число 64 и получим
64=2^i, перепишем левую часть как 2^6
2^6=2^i, отсюда i=6 бит
определим объем сообщения I=K*i=40*6=240 бит=30 байт
1. =СУММЕСЛИ(C1:C1001;"студент";D1:D1001)/СЧЁТЕСЛИ(C1:C1001;"студент")
2. в ячейку F2 поставить формулу =ЕСЛИ(ABS(E2-D2)<5;1) скопировать вниз до 1001
в ячейку G3 поставить =сумм(F2:F1001) это ответ
var
Digit: integer;
begin
readln(Digit);
writeln(Digit mod 3 = 0);
end.