Число-176 записано в ячейку памяти размером 16 битов (кодирование знаковое в двоичном пред- ставлении оно имеет вид.

Переведите число 176₁₀ в 2-ичную систему счисления. 176₁₀ = 10110000₂ , но оно должно занимать ровно 16 бит памяти, следовательно, нужно дописать слева столько нулей, сколько не хватает до 16. ответ: 0000000010110000

1)program test; var   a: array[1..12] of integer;   i,min: integer; begin   for i: =1 to 12 do begin       readln(a[i]);       a[i]: =abs(a[i]);       if i=1 then min: =a[i]       else if a[i]< min then min: =a[i];   end;   writeln(min); end. 2) uses crt ; var     a                      : array [ 1 .. 100 ] of integer ;     c                      : integer ;     i , j , n      : shortint ; begin         clrscr ;         write ( 'количество элементов массива = ' ) ;         readln ( n ) ;         writeln ( 'ввод массива' ) ;         for i : = 1 to n do                 read ( a [ i ] ) ;                                 a[i]: =abs(a[i]);         writeln ;         //сортировка пузырьком//         for i : = 1 to n - 1 do begin                 for j : = n downto i + 1 do begin                         if a [ j ] < a [ j - 1 ]                         then                         begin                                   c : = a [ j ] ; a [ j ] : = a [ j - 1 ] ; a [ j - 1 ] : = c ;                         end ;                                         end;                         end;         for i: =n-2 to n do writeln(a[i]); end .

Write(number mod 10,number div 10 mod 10, number div 100 mod 10); пример программы: program test; uses crt, classes; var number: integer; beginnumber: =123; write(number mod 10,number div 10 mod 10, number div 100 mod 10); delay(1000); //чтобы окно ещё на 1 секунду осталось, функция из модуля crtend.для pascal abc.net: program test; var number: integer; beginnumber: =123; write(number mod 10,number div 10 mod 10, number div 100 mod 10); sleep(1000); //чтобы окно ещё на 1 секунду осталосьend.вывод: 321