1. а) Записать в 24-х разрядную сетку число 74,3(ДЕСЯТИЧНАЯ), переведя его в двоичную СС, в формате с фиксированной точкой (запятая установлена после 12-ого разряда справа) и плавающей точкой (где 8 разрядов отводится под порядок, остальные 16 – под мантиссу).
б) Записать в 24-х разрядную сетку число -74,3(ДЕСЯТИЧНАЯ, переведя его в двоичную СС, в формате с фиксированной (запятая установлена после 12-ого разряда справа) и плавающей точкой (где 8 разрядов отводится под порядок, остальные 16 – под мантиссу).

1001001001 (двоичн.)
Разделим исходный код на группы по 3 разряда.
1001001001 = 001 001 001 001 
Затем заменяем каждую группу на код из таблицы.
Получаем число:
001 001 001 001  = 1111 (это в восьмиричн.)

Разделим исходный код на группы по 4 разряда.
10010010012 = 0010 0100 1001 2
Затем заменяем каждую группу на код из таблицы.
Получаем число:
0010 0100 1001  = 249 (это в шестнадцатирич.) 

Для перевода в десятич. необходимо умножить разряд числа на соответствующую ему степень разряда (обозначу степень данным - ^ символом)
1001001001 = 2^9*1 + 2^8*0 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*0 + 2^3*1 + 2^2*0 + 2^1*0 + 2^0*1 = 512 + 0 + 0 + 64 + 0 + 0 + 8 + 0 + 0 + 1 = 585 (это в десятич.)

Таблицы для перевода находятся в свободном доступе в инете

program allliyagilmanova666;

const n = -20;

         m = 0;

         l = 10;

var x, y: double;

     proverka: byte;

begin

proverka := 1;

repeat

 writeln('Введите х:');

 readln(x);

 if (x < -20) then y := 2 * x + 1

  else if ((x >= n) and (x <= m)) then y := 4 * x + 8

   else if ((x > m) and (x < l)) then y := 0

    else y := sqr(x) + 2;

 writeln('При х = ', x : 0 : 2, ' y = ', y : 0 : 2);

 writeln('Если хотите продолжить работу введите 1, в противном случае - 0.');

 readln(proverka);

until (proverka = 0);

end.