Исходя из некоректных условий задачи, мы можем знать только то, что пятерок у ученика от 8 до 15 (8, первое число которое кодируется 4-ю битами, и 15 которое последнее).
Private Sub CommandButton1_Click() Dim s() As Integer, n As Integer, m As Integer Dim i As Integer, j As Integer Dim min As Integer, max As Integer, q As Integer, w As Integer Cells.Clear n = InputBox("CTROKI", , 4) m = InputBox("CTOLBEC", , 5) Randomize ReDim s(n, m) As Integer For i = 1 To n max = -100: min = 100 For j = 1 To m s(i, j) = Int(Rnd() * 60 - 10) Cells(i, j) = s(i, j) Cells(i + 2 + n, j) = s(i, j) If min > s(i, j) Then min = s(i, j) q = j End If If max < s(i, j) Then max = s(i, j) w = j End If Next j Cells(i + 2 + n, w) = min Cells(i + 2 + n, q) = max Next i End Sub
4 бита, это комбинация из 4-х чисел, от 1 до 0.
Максимальное число, которое можно закодировать 4 битами это 1111 в двоичной системе, а в 10-тичной системе это число 15 (8+4+2+1).
Итого у его может быть максимум 15 пятерок.
Если допустить, что он получил максимум 5-ток, а это15, то тогда 160-15=145 четверок получил.
Но, если он получил 14 оценок, это по прежнему будет 14 бит, но комбинация будет 1110.
13 - 1101, 12 - 1100, 11 - 1011, 10 - 1010, 9 - 1001, 8 - 1000, 7 -111.
Исходя из некоректных условий задачи, мы можем знать только то, что пятерок у ученика от 8 до 15 (8, первое число которое кодируется 4-ю битами, и 15 которое последнее).
Задача,увы, неправильная.
Объяснение: