8 битами ---т е 256 если подсчитать
Контекстное меню<span> – это меню, которое отображается в отдельном окошке и показывает действия, которые можно произвести с выбранными файлами, папками или отдельными элементами!</span><span>
</span>
Для одного символа требуется log(2)8 = 3 бита
количество символов = 120/3 = 40
Только такой вижу! Умножать на 2 нельзя - сразу получится четное число, из которого никак прибавляя и ли умножая на 2 нечетное число (17) не получить!
11111111
Var a,b,c:longint;
begin
write ('A = ');
readln (a);
write ('B = ');
readln (b);
write ('C = ');
readln (c);
if (a<=b) and (b<=c) then writeln (c,' ',b,' ',a) else
if (b<=a) and (a<=c) then writeln (c,' ',a,' ',b) else
if (c<=a) and (a<=b) then writeln (b,' ',a,' ',c);
end.