<span>Переводим целую часть числа. Заменяем каждый разряд на код из таблицы.</span>
Двоичная СС Восьмеричная СС
000 0
001 1
010 2
011 3
100 4
101 5
110 6
111 7
<span>Получаем число:</span>
<span>774</span>8<span> = 111111100</span>2
Переводим дробную часть числа.
Получаем число:
08 = 0002
Переводим целую часть числа. Для этого разделим исходный код на группы по 4 разряда.
111111100 = 0001 1111 1100
Затем заменяем каждую группу на код из таблицы.
Двоичная СС шестнадцатеричная СС
0000 0
0001 1
0010 2
0011 3
0100 4
0101 5
0110 6
0111 7
1000 8
1001 9
1010 A
1011 B
1100 C
1101 D
1110 E
1111 F
<span>Получаем число:</span>
<span>0001 1111 1100 </span>2<span> = 1FC</span>16
Использовал оперативную память
3 вариант, все остальное рассуждение.
begin
var a := ArrRandom(10, 1, 9);
a.Println;
Println('Кол-во чисел, равных max:',
a.FindAll(p -> p = a.Max).Count)
end.