Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');Read(A);
Write('B = ');Read(B);
For A:=A to B do
P:=P*A;
WriteLn(P)
End.
Всё здесь неправильно 2 система состоит из 0 и 1
8 система 1 2 3 4 5 6 7
16 система 1 2 3 4 5 6 7 8 9 a b c d e f
158 - Обычная программа
Добавляем считывание чисел:
145768
Добавляем суммирование и выводим результат :
14576238 - Ответ
N=2i (2 в степени i) - формула Шеннона
N - мощность алфавита. Отсюда i=7
То есть один символ несёт информационный объём в 7 бит. А их аж 8192. Перемножаем 8192*7 и делим на 8 (количество битов в одном байте) = 7168 байта. Что составляет 7168/1024=7 Кб
Ответ: 7 Килобайт