Рассматривая 0001 0011 0010 0100 0011 0101 0100 как двоичные числа, запишем в десятичной системе их эквиваленты: 1 3 2 4 3 5 4
Видно, что числа, стоящие через одно, растут на единицу, т.е. на нечетных местах стоят числа ряда 1 2 3 4, а на четных - 3 4 5. Следующее число по порядку восьмое, на четной позиции, следовательно продолжается ряд 3 4 5 и следующее число - это 6. В двоичной системе оно представляется, как 0110.
Ответ:<em><u> 0110</u></em>
Function func32707155(a As Range) As Integer
Dim i, j, odd_num, even_num, min_max(2) As Integer, r As Range
odd_num = Cells(a.Row, a.Column)
even_num = Cells(a.Row + Sgn(a.Rows.Count - 1), a.Column + Sgn(a.Columns.Count - 1))
j = 0
For Each r In a
j = j + 1
i = j Mod 2
min_max(i) = i * Application.max(odd_num, r) + (1 - i) * Application.min(even_num, r)
Next
func32707155 = min_max(1) + min_max(0)
End Function
Excel VBA
Используем расширенное представление числа
Ответ: основание системы счисления равно 6.
1..10 -номера масивово
1)2<1 n=2
2)3>2 n=2
3)4<2 n=4
4)5<4 n=5
5)6>5 n = 5
6)7>5 n=5
7)8>5 n=5
8)9>5 n=5
9)10>5 n=5
10)n=MAS[5]=5
Var x,y,S:real;
k:integer;
Begin
x:=-4;
k:=0;
While x<7 do
Begin
if (x < -3) then y:=2*x-5*Sin(x)
else if (-3 <= x)and(x <= 5) then y:=1-Sin(x)
else y:=ln(4*x+Sin(x));
if (y > 0) then
Begin
S:=S+y;
k:=k+1
End;
WriteLn('y(',x:0:1,') = ',y:0:3);
x:=x+0.2
End;
WriteLn('Sr = ',S/k);
ReadLn
End.