Переведем 31 в двоичную=11111-это число R
Сказано,что оно на два разряда больше,чем исходное N
Т.е. N=111|11=111
Прогоним 111 по данному алгоритму:
1)Число единиц не четно,значит добавляем 0>>1110
2)3/2=1,значит добавляем 1>>11101
Видим,что 11101<11111,значит исходное N увеличиваем на 1,получим 1000
Прогоняем по алгоритму 1000:
1)Число единиц нечетно,добавляем 0>>10000
2)Остаток от деления числа единиц=1,добавляем 1>>100001
Мы получили число 100001-это R.Оно больше,чем 11111.
Переведем его(100001) в десятичную систему счисления=33
Ответ:33
Ответ:
3) 4) - это точно правильно
Запах, вкус, материальные вещи и тд
Const
K = 7;
Var
A:array[1..K] of integer;
i,n:integer;
Begin
For i:= 1 to K do
Begin
A[i]:=random(1001);
Write(A[i],' ');
End;
WriteLn;
n:=1;
For i:= 2 to K-1 do
if A[i]*A[i+1]>A[n]*A[n+1] then n:=i;
WriteLn(n,' и ',n+1)
End.