Количество символов опр. так: 2^3=8
Нужно перевести любые числа? Тогда, пусть будут такие
1 задание:
10 - 1010
123 - 1111011
1234 - <span>10011010010
2 задание:
1111 - 15
1001001 - 73
</span>10000000 - 128
// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
function num(n: integer): integer;
begin
if n <= 36 then num := (n - 1) div 4
else num := 8 - (n - 37) div 2
end;
begin
var carr := ArrFill(9, 0);
for var i := 1 to ReadInteger do carr[num(ReadInteger)] += 1;
carr.AdjacentGroup.Where(t -> t[0] = 6).Select(t -> t.Count).Max.Println;
end.
Пример:
Ввод:
12
5 6 3 4 8 7 51 9 10 54 49 52
Вывод:
1
Ответ:
Шестнадцатеричная
Объяснение:
Сразу отбрасываем ответы 3 и 4 как негодные (в записи чисел присутствует цифра 8).
Пусть основание системы счисления равно X.
Тогда:
8·X¹ + 5·X⁰ + 8·X¹ +1·X⁰ = 1·X²+0·X¹ + 6·X⁰
8·X + 5 + 8·X +1 = X²+ 6
16·X + 6 = X²+ 6
16·X = X²
X = 16
Ответ: 1. Шестнадцатеричная
1) 2.4 мб
2) 256800
Как то так, но за правильность не ручаюсь