Используя вс алгоритмы .​

2^i = 100

i = 7 бит необходимо для кодирования любого от 1 до 100

64 * 7 =  448 бит = 56 байт

1) чтобы перевести из 2-ой системы в 10-ную нужно каждую цифру умножить на основание системы счисления в степени в какой стоит цифра:

111101(2) = 1 * 2^5 + 1 * 2^4 + 1 * 2^3 + 1 * 2 ^ 2 + 0 * 2 ^ 1 + 1 * 2^0 =

= 32 + 16 + 8 + 4 + 0 + 1 = 61 (10)

2) чтобы перевести число из 10-ой системы в 2-ную нудно делить исходной число на 2 до тех пор пока исходной число не станет меньше 2, остатки от деления записанные в обратном порядке будут результатом

65 : 2 = 32(ост. 1)

32 : 2 = 16(ост. 0)

16 : 2 = 8(ост. 0)

8 : 2 = 4(ост. 0)

4 : 2 = 2 (ост. 0)

2 : 2 = 1 (ост. 0)

65(10) = 1000001(2)

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

на паскале:

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.