13 чисел я нашёл. Ну подсчитай сам
===== PascalABC.NET =====
№1
begin
var n := ReadInteger;
var a := SeqRandomReal(n, -99, 99).Select(p -> Round(p,1)).ToArray;
a.Println;
var ic := n div 2;
if a[ic] > a[ic+1] then
a[ic] := 1
else if a[ic] = a[ic+1] then
a[ic] := 0
else
a[ic] := (a[n-1] + a[n-2])/2;
a.Println
end.
№2
begin
var (a, x) := ReadReal2('Введите а и х:');
var y: real;
if x < 0 then
y := 2 + x
else if x = 0 then
y := 3 * a - 1
else
y := a + x;
Print(y)
end.
Задача 1.
Считаем количество пикселей: 640*480.
Умножаем на 8 бит.
Получили Количество информации в битах.
Скорее всего, надо еще перевести в байты или килобайты, то есть разделить на 2^3 в первом случае или на 2^13 во втором.
Задача 2.
Считаем глубину кодирования цвета: 64 = 2^6, значит, 6 бит.
Считаем количество пикселей 32*32 = 2^10.
Перемножаем и переводим в байты, то есть делим на 8.
Геном - наследственный материал, заключенный в клетке организма. Геном человека построен из ДНК.
Вывод: вариант б
N=16
i=?
N=2^i, 16=2^i,i=4 (бита) (16 –это количество комбинации(вариантов),i-сообщении
о том, что произошел один из возможных вариантов события)
<span>Ответ: 4 бита содержит сообщение</span>