===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.Println; // 1
SeqGen(n, i -> a[i] / Sqr(i + 1)).Sum.Println; // 2
a.Count(p -> (p mod 3 = 0) and (p mod 10 = 7)).Println; // 3
a.Where(p -> p.IsEven and (p > 0)).Sum(p -> Sqrt(p)).Println; // 4
// 5
var m := a.Min;
if m < 0 then
Println(m)
else
Println('Нет отрицательных чисел')
end.
Это очень,для меня сложно.Но - Но можно поискать в интернете Подскажи мне автора книги
<span>1. Сколько кодов можно составить из 9 бит?
Ответ: Можно составить два в девятой степени, т.е. 512 различых кодов.
2. Сколько надо бит, чтобы можно было составить 16 разных кодов?
Ответ: </span>4 бита, поскольку 16 - это два в четвертой степени.
Минимум 1-8 мегабайта в секунду
Ответ:
Думаю, что трассировка будет такой:
1 | 70 | 2 | False
1 | 70 | 3 | False
1 | 70 | 4 | False
1 | 70 | 5 | False
1 | 70 | 6 | True
6 | 40 | 7 | False
6 | 40 | 8 | False
6 | 40 | 9 | False
6 | 40 | 10 | False
Объяснение:
Если есть по рукой компьютер, то просто запустить этот фрагмент кода в редакторе. Иначе аккуратно заполнять значения строчку за строчкой в таблице трассировки.