Как решить 9 задание?

2^i = 128

i = 7 бит

800 * 7 = 5600 бит

5600 : 8 = 700 байт

700 : 1024 = 0,684 килобайт.

думаю, что 19,5 кб = 0,019 мб.

наверняка двоичные числа надо только определить где ноль а где один

наверно о - one

10101

10110

10111

11000

11001

вроде как сходится, продолжаем

11010

11011

11100

11101

11110

11111

обратную замену самостоятельно

program month;

    uses crt;

    var a: integer;

begin

    clrscr;

    write('vsatvte chislo');

    read(a);

    if (a=12) or (a=1) or (a=2) then write('zima')

                  else  if (a=3) or (a=4) or (a=5) then write ('vesna')

                            else  if (a=6) or (a=7) or (a=8) then write ('leto')

                                      else write('oseni');

    repeat until keypressed;

end.