Pascal
const n = 20;
var
a,b,min : real;
m : array [1..n] of real;
i : integer;
begin
// формирова массива не пишу
readln (a,b);
min := b;
for i := 1 to n do
if (m[i]<min) and (m[i] >=a ) and (m[i] <=b)
then
min := m[i];
writeln (min:3:2);
<span>end.
Программа будет работать корректно, если в массиве есть хотя бы один элемент, попадающий в диапозон [a..b].</span>
450 = <span>111000010 </span>
0000000111000010 - прямой
1111111000111101 - обратный
+1
1111111000111110 - дополнительный
з.ы числа написаны в 2битной сетке (если нужно убери первые нули)
1) Кол-во информации=7 (128=2^i)
2) N=2^i, 2^5=32 вагона
3)вес одного символа от 64=6 бит, 6*3072= <span>
184368</span> бит/8/1024=<span><span>22,50586</span></span><span>Кбайта
4) 3*48*64*8(это вес 1 символа от 256)=</span><span>
73728 бит/8/1024=9 Кбайт</span>