Количество информации = log(2)256 = 8 бит (256 = 2^8)
❤️❤️❤️на, держи❤️❤️❤️ удачи
Program chislo;
uses crt;
var
a:integer;
begin
writeln('Введите число : ');
readln(a);
if((a Div 100)>(a Mod 10)) then
writeln('Да')
else
if((a Div 100)<(a Mod 10)) then
writeln('Нет')
end.
При переводе числа 10101011 из 2-ной в 10-ую:
171