// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
Begin
var a:= ArrRandom(15,20,84);a.PrintLn;
Writeln(a.Where(t -> (t.isOdd)and(t mod 3 = 0)and(t mod 10 <> 0)).Count);
end.
Пример:
64 64 76 31 21 81 53 30 58 38 66 69 57 65 41
4
Задание 1.
1024 страницы по 256 строк с 128 символами, 2 байта на символ.
1024*256*128*2=67108864 байта, или 65536 кбайта, или 64 мбайта.
560 иллюстраций * 5 мбайт = 2800 мбайт.
2 гбайта = 2*1024=2048 мбайт.
2800+64=2864
2864>2048, то есть не поместится.
Задание 2.
26 букв и 10 цифр = 36 различных символов, каждый кодируется минимально возможным кол-вом бит. Ближайшая степень двойки - 64, то есть 6 бит на символ. Каждый номер состоит из 9 символов, то есть 6*9=54 бита на номер.
54*110=5940 бит на 110 номеров.
периметр это сумма длин всех сторон. следовательно для того чтобы найти периметр нужно длину умножить на два и ширину умножить на два потом два ответа сложить (а*2)+(б*2) или же сложить все стороны
0 умножить на 0=0
0+0=0 в первой скобке
Неважно, что получится во второй (хотя там 1) умножаем на 0 =0