2^i=16
значит i=4;
количество информации I=32*4=128 бит
===== PascalABC.NET =====
begin
var x := ReadReal;
var y := x - x * x / 3 + x ** 6 / 4;
Println(y);
y := 3 ** (-x) + cos(x) - Sin(x * x);
Println(y);
y := (x ** 3 + 9 * x + 12) / (x * x - 6 * x + 15);
Println(y);
y := x + 12 * Sin(2 * x) + Abs(x ** 3 + x ** 5);
Print(y)
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;
a.IndexesOf(t->t=a.Min).Select(t->t+1).Println
end.
<u>Результат</u>
3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81
3 15
<span>program ves;
const
A1='легкая категория';
A2='средняя категория';
var
b : integer;
begin
write('введите вес спортсмена *пусто* = ');
readln(b);
if b < 59 then writeln(A1) else writeln(A2);
readln;
end.</span>
1024 = 2 в 10 степени, значит глубина цвета = 10 бит, всего пикселов 16*24 = 384. Объём = 384*10 = 3840 бит = 480 байт