Не понял, может, минимальное количество бит?
Спрашивать максимально возможное количество бит для хранения числа - это то же самое, что спросить, какое максимальное количество денег готов получить работник в оплату своих услуг. Миллион, миллиард? Всегда есть числа ещё больше!
Теперь по сути вопроса.
Для хранения чисел от 1 до 80, всего 80 штук, 6 бит будет мало, т.к. 2^6 = 64, и для части чисел нет кодов
И потребуется 7 бит, 2^7 = 128, хотя часть кодов будет не задействована.
Ответ - 7 бит на одно число.
//PascalABC.Net 3.2
begin
var max:=-1000000000;
var sum:=0; var count:=0; var a:=0;
repeat
a:=readinteger('Введите число: ');
if (a.IsEven) and (a<0) then inc(count);
if a>max then max:=a;
sum+=a;
until a=0;
writeln ('a) ', sum);
writeln ('b) ', count);
write ('c) ', max);
end.
Получите 1.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadAllText('MyFile.txt');
Writeln(s)
end.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
for var i:=1 to a.Length-2 do a[i]+=5; a.Println
end.
<u>Пример</u>
n= 8
Вводите: -7 13 24 -11 0 -6 31 -7
-7 18 29 -6 5 -1 36 -7