Вычислите значение выражения 9E16 – 9416. В ответе запишите вычисленное значение в десятичной системе счисления.

Для выполнения задания 1 необходимо использовать следующие данные:

В двоичной системе:

· четные числа оканчиваются на 0, нечетные – на 1;

· числа, которые делятся на 4, оканчиваются на 00, и т.д.; числа, которые делятся на 2k, оканчиваются на k нулей

· числа вида 2k записываются в двоичной системе как единица и k нулей, например, 16 = 24 = 10002

· числа вида 2k-1записываются в двоичной системе k единиц, например, 15 = 24-1 = 11112

· Степени числа 2: 20=1, 21=2, 22=4, 23=8, 24=16, 25=32, 26=64, 27=128, 28=256, 29=512, 210=1024

Ниже представлена таблица для перевода чисел из двоичной в восьмеричную, шестнадцатиричную системы и обратно.

Const
  n=6;
  a:array[1..n] of string=
    ('Иванов','Петров','Сидоров','Козлов','Баранкин','Пупкин');
  b:array[1..n] of real=(15,13.9,16.1,14.2,14.5,15.3);
  // массивы используются чтобы избежать в примере ручного ввода
var
  i,j,k:integer;
  t:real;
  s:string;
  sa:array[1..n] of string;
  sb:array[1..n] of real;
begin
  for i:=1 to n do begin sa[i]:=a[i]; sb[i]:=b[i] end;
  // сортировка по возрастанию времени
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if sb[j]>sb[j+1] then begin
        s:=sa[j]; sa[j]:=sa[j+1]; sa[j+1]:=s;
        t:=sb[j]; sb[j]:=sb[j+1]; sb[j+1]:=t
        end;
  // вывод
  for i:=1 to 4 do Writeln(sa[i],' - ',sb[i])
end.

Пример
Петров - 13.9
Козлов - 14.2
Баранкин - 14.5
Иванов - 15

PascalABC.NET

const
  n=10;
var
  a:array[1..n,1..n] of integer;
  i,j,kp,kq:integer;
  p,q:array of integer; // динамические массивы
begin
  Randomize;
  Writeln('Исходный массив из случайных чисел');
  kp:=0; kq:=0;
  SetLength(p,n*n); SetLength(q,n*n);
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(101)-50; // диапазон [-50;50]
      Write(a[i,j]:4);
      if a[i,j]>0 then begin p[kp]:=a[i,j]; Inc(kp) end
      else
        if a[i,j]<0 then begin q[kq]:=a[i,j]; Inc(kq) end
      end;
    Writeln
  end;
  SetLength(p,kp); SetLength(q,kq); // отрегулировали по заполнению
  Writeln('Положительные');
  for i:=0 to kp-1 do Write(p[i],' '); Writeln;
  Writeln('Отрицательные');
  for i:=0 to kq-1 do Write(q[i],' '); Writeln
end.

Пример
Исходный массив из случайных чисел
  46  47  -8 -32  36  41 -49 -15  25 -33
  18  15   1  15  21  43  30  41 -15 -21
 -48  15  -5  17  19  30 -38   0  10  11
 -16  10  48 -30 -40 -49 -48  24  18  24
  47  45  50  44  -3 -15  19  29 -13  38
 -23   3 -23  19  19 -19   1  26   0 -45
  28   1  26 -36  34 -43  18 -19   4  19
  41 -45 -27  12 -18 -43  16   1 -31 -17
 -39 -16 -37  22 -17  31 -17 -22   1  30
   0 -24 -27  12  46  -4 -32  36 -40 -11
Положительные
46 47 36 41 25 18 15 1 15 21 43 30 41 15 17 19 30 10 11 10 48 24 18 24 47 45 50 44 19 29 38 3 19 19 1 26 28 1 26 34 18 4 19 41 12 16 1 22 31 1 30 12 46 36
Отрицательные
-8 -32 -49 -15 -33 -15 -21 -48 -5 -38 -16 -30 -40 -49 -48 -3 -15 -13 -23 -23 -19 -45 -36 -43 -19 -45 -27 -18 -43 -31 -17 -39 -16 -37 -17 -17 -22 -24 -27 -4 -32 -40 -11