N=2ˣ
N - мощность алфавита
x - вес одного символа в битах.
Разбиваем двоичное число справа налево по три разряда и каждую полученую тройку (триаду) заменяем соответствующей восьмеричной цифрой, дополняя слева недостающие разряды нулями.
10111101(2)=010 111 101(2)=275(8)
<h2>Написано на языке PascalABC.NET</h2>
- const
- cValue = 2;
- var
- N, i: integer;
- resultNumber: real;
- begin
- Readln(N);
-
- for i := 1 to N do
- resultNumber := resultNumber + Power(cValue, i);
- Writeln(resultNumber);
- end.