<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-9,9); a.Println;
Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.
<u>Пример</u>
2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1
Первая цифра в записи будет 3.
Изменение цифр происходит так:
2^0 = 1
2^1 = 2
2^2 = 4
2^3 = 8
2^4 = 10
2^5 = 20
2^6 = 40
2^7 = 80
и так далее.
Степень 1024 кратна 4-м, поэтому число будет начинаться с 1. Следующая степень 1025 будет начинаться с 2.
А их сумма, соответственно, 3.
K = 8*64*32 =2*3 * 2*6 * 2*5 = 2*14 (два в четырнадцатой) символов
16 бит = 2*4(два в четвертой) => Переводи в Юникод: 2*14 *2*4 = 2*18
1Кбайт = 2*13 бит
2*18 / 2*13 = 2*5 = 32Кбайта
Ответ:2
Если использовать однобайтную кодировку, то
150 * 40 * 60 / 1024 = 351,5625 КБ.