101101(2) * 101(2) =
10110100(2)+101101(2) сдвигаем первое на бита влево и складываем с самим собой
10110100
+
00101101
__________
11100001
1 1 1 - это переносы в следующий разряд
11100001(2) = 2^7+2^6+2^5+1 = 128+64+32+1 = 225(10)
101101(2) = 2^5+2^3+2^2+1=32+8+4+1=45(10)
101(2)= 2^2+1=5(10)
45*5=225
N = int(input("n = "))if n <= 999999:----mas = []----while n >0:--------a = n %10--------n = n//10--------mas.append(a)--------print(a,end=' ')----print()----print(mas)
0...125 - 126 возможных значений.
2^6 < 126 < 2^7
На запись результата каждого измерения требуется 7 бит.
Информационный объём результатов наблюдений: 7•70 = 490 бит.
'MS-DOS QBasic 1.0
DIM a(1 TO 20) AS SINGLE, b(1 TO 20) AS SINGLE
CLS
RANDOMIZE TIMER
PRINT "Massiv a"
j = 0
FOR i = 1 TO 20
a(i) = 10 * RND - 5
PRINT a(i);
IF a(i) > 0 THEN
j = j + 1
b(j) = a(i)
END IF
NEXT i
FOR i = 1 TO 20
IF a(i) <= 0 THEN
j = j + 1
b(j) = a(i)
END IF
NEXT i
PRINT
PRINT "Massiv b"
FOR i = 1 TO j
PRINT b(i);
NEXT i
PRINT
<em><u>Тестовое решение:</u></em>
Massiv a
-1.726111 1.835247 -4.176585 4.217188 4.836039 4.953975 .551706 .2788973
-1.588834 1.447831 1.91242 -3.830101 3.318729 1.483444 .0306803 -.3601742
1.934826 1.057516 -2.458627 .9090161
Massiv b
1.835247 4.217188 4.836039 4.953975 .551706 .2788973 1.447831 1.91242
3.318729 1.483444 .0306803 1.934826 1.057516 .9090161 -1.726111 -4.176585
-1.588834 -3.830101 -.3601742 -2.458627