Перевести в двоичную , десятичную и шестнадцатеричную числа 333, 777, 1024

333 = 101001101(2) 777 = 2^2*7 + 2^1*7 + 2^0*7 = 28 + 14 + 7 = 49 1024 = 0400v16

Адрес сети  определяется с маски. к адресу сети относятся числа, где в двоичном представлении маски стоят единицы. 255 - это 1111 1111 в двоичной системе,т.е первые два числа ip  полностью относятся к адресу сети. 0 - это 0000 0000 в двоичной,т.е последнее число не относится к адресу сети(пишем 0). так, 3 числа из 4-х есть: 192.168.x.0 найдем x: 92 - это 0101  1100 в двоичной 128 - это 1000 0000 в двоичной применим по-разрядное умножение и найдем третье число. получается: 0000 0000, а это 0 в десятичной адрес сети: 192.168.0.0число компьютеров в сети это 2 в степени  оставшиеся нули в маске и минус 2 "зарезервированных" адреса. маска в двоичном представлении: 1111 1111.1111 1111.1000 0000.0000 0000 кол-во нулей: 15 считаем кол-во компьютеров: 2^15 - 2 =  32768-2 = 32766 компьютеров    найдем наш компьютер: 92 - 0101 1100 73 - 0100 1001 маска:   1111 1111.1111 1111.1000 0000.0000 0000 кол-во компьютеров:             0101 1100  0100 1001 там, где сверху нули это наш адрес компьютера:   101 1100  0100 1001 переведем в десятичную систему: 23625

Var {файл 1.txt необходимо создать } n,i,j,c1: integer; a: array[1..100] of integer; f: text; begin   {чтение данных с файла 1.txt}   assign(f,'1.txt'); reset(f);   i: =0;   while not eof(f) do   begin     i: =i+1;     read(f,a[i]);   end;   n: =i;   close(f); {сортировка}   for i: =1 to n-1 do   for j: =i+1 to n do       if a[i]> a[j] then               begin                 c1: =a[j];                 a[j]: =a[i];                 a[i]: =c1;               end;   {вывод в файл 2.txt отсортированного массива}   assign(f,'2.txt');   rewrite(f);   for i: =1 to n do     write(f,a[i]: 5);   close(f);   end.