2) запишите в свернутой форме число: a8=1*8²+7*8+6*8^0+2*8^-1+1*8^-2 3) переведите числа из двоичной, восьмеричной, 16-чной системы в десятеричную систему: а) 1001111110111, 011(2) б)1110101011, 1011101(2) в) 357, 125(8) г)12ac.f(16) д) bc3, 25d(16)

А) Для перевода целой части необходимо умножить разряд числа на соответствующую ему степень разряда.
10011111101112 = 212*1 + 211*0 + 210*0 + 29*1 + 28*1 + 27*1 + 26*1 + 25*1 + 24*1 + 23*0 + 22*1 + 21*1 + 20*1 = 4096 + 0 + 0 + 512 + 256 + 128 + 64 + 32 + 16 + 0 + 4 + 2 + 1 = 5111
Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда.
0112 = 2-1*0 + 2-2*1 + 2-3*1 = 0.375
В итоге получаем число 5111.375
ответ: 1001111110111.0112=5111.375

б) 11101010112 = 29*1 + 28*1 + 27*1 + 26*0 + 25*1 + 24*0 + 23*1 + 22*0 + 21*1 + 20*1 = 512 + 256 + 128 + 0 + 32 + 0 + 8 + 0 + 2 + 1 = 939
Для перевода дробной части необходимо разделить разряд числа на соответствующую ему степень разряда.
10111012 = 2-1*1 + 2-2*0 + 2-3*1 + 2-4*1 + 2-5*1 + 2-6*0 + 2-7*1 = 0.7265625
В итоге получаем число 939.7265625
ответ: 1110101011.10111012=939.7265625

Разъясню
1. ИЛИ ложно, когда оба высказывания ложны. Т.е. 0 ИЛИ 0 = 0, в остальных случаях - истина. Значит, НЕ(х>87) И НЕ НЕ(х кратное 9)
В первом случае знак можно поменять: (х<=87), убрав при этом НЕ. Двойное отрицание убираем без последствий: (х кратно 9).
Наибольшее число, которое меньше или равно 87 И делится на 9 без остатка = 81.
2. 64 = 2^6
16 = 2^4
1 = 2^0
В двоичной записи десятичного числа 1 стоит на месте степени двойки, разряды нумеруются с конца, начиная с нуля.
Запишем разряды(их 6, т.к. первая 1 стоит на 6 позиции с конца, а ведущие нули можно убрать (как в десятичной вместо 008 мы пишем 8)
6 5 4 3 2 1 0
1 0 1 0 0 0 1
под разрядами пишем 1 там, где у нас была степень 2.
Это двоичная запись числа. В ней 4 нуля.
ответ: 4

Const
  n = 15;

var
  a:array[1..n] of integer;
  i,sp,sn: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  sp:=0; sn:=0;
  for i := 1 to n do
  begin
    a[i] := Random(51)-25;
    Write(a[i]:4);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
  end;
  Writeln;
  Writeln('Частное: ',sp/abs(sn))
end.

Тестовое решение:
Элементы массива
   2 -25   0   5  24   4   3   1  12  13  10   1   6  13 -17
Частное: 2.23809523809524

Вариант со вводом данных с клавиатуры:
const
  n = 15;

var
  a:array[1..n] of integer;
  i,sp,sn: integer;

begin
  Writeln('Вводите через пробел элементы массива');
  sp:=0; sn:=0;
  for i := 1 to n do
  begin
    Read(a[i]);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
  end;
  Writeln('Частное: ',sp/abs(sn))
end.