1. Растровый графический файл содержит черно-белое изображение с 16 градациями серого цвета размером 100*100 точек. Сколько времени потребуется для передачи изображения по сети со скоростью модема 14400 бит/сек? 2. Оценить информационный объем цифрового стереозвукового файла длительность звучания 1 секунда при глубине 16 бит и частоте дискретизации 24 кГц.
3. Чему равна сумма чисел 57(в 8) и 46(в 16)? Ре­зуль­тат пред­ставь­те в де­ся­тич­ной си­сте­ме счис­ле­ния.
4. В тер­ми­но­ло­гии сетей TCP/IP мас­кой сети на­зы­ва­ет­ся двоичное число, определяющее, какая часть IP-адреса узла сети от­но­сит­ся к ад­ре­су сети, а какая - к ад­ре­су самого узла в этой сети. Обыч­но маска за­пи­сы­ва­ет­ся по тем же правилам, что и IP-адрес. Адрес сети по­лу­ча­ет­ся в ре­зуль­та­те применения по­раз­ряд­ной конъюнкции к за­дан­ным IP-адресу узла и маске. По за­дан­ным IP-адресу узла и маске опре­де­ли­те адрес сети.
IP-адрес узла: 219.131.146.97
Маска: 255.255.192.0

Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.

----------------------------

PROGRAM A20;

CONST
    max = 100;
TYPE
    matrix = array[1..max,1..max]of shortint;
VAR
    ar:matrix;
    num:byte;
    i,j:byte;
    a,b,c:byte;
    q:boolean;

BEGIN
  repeat
  //  num := 5;
    write('Введите размер матрицы n=');
    readln(num);
   
    for i:=1 to num do begin
      for j:=1 to num do
        read(ar[i,j]);
    end;
 
    i:=1;//диагональ
    q:=true;
   
    while q and (i<num) do begin
      j:= i+1;//колонка и ряд
      while q and (j<=num) do begin
        a := ar[j,i];
        b := ar[i, j];
       
        if (ar[j,i] <> ar[i, j])
          then q:=false;
        j:=j+1;
      end;
      i:=i+1;
    end;
   
    if q then
      writeln('YES')
    else
      writeln('NO');
   
    write('Введите 1 чтобы продолжить. 0 чтобы завершить');
    readln(i)
  until(i=0); 
END.

Ппц заданий сложный как у тарчка

1. Конвертировать число во float не постандарту IEEE-754

-53.45 (10) = -110101.01110011001 (2)
экспоненциальная запись = -1.1010101110011001 * 10^5
мантисса = -1.1010101110011001
порядок ^5 (10) = 101 (2)
дробная мантисса = 1010101110011001
дробный порядок = 101 + 1111 = 10100
знак минус = 1

ответ:
1 10100 10101011100110010000000000

2. Конвертировать из float не постандарту IEEE-754

исходное 0 100001 1010011010000000000000000
знак = 0
порядок = 100001 - 11111 = 10 = 2 (10)
мантисса = 1.101001101

110.1001101 (2) = 6.6015625 (10) корочи пребризительная 6.6

ответ  6.6015625

всё приблизительно за меня потомучта делал конвертер в местах перевод из 10 в двоичную и наборот а далши я сам поэтому пиши преблезительна