Где используют систему счисления в жизни?

Счисления используется в программировании и компьютерной документации, так как в компьютерах минимальной единицей памяти являться 8-битный байт, и его значения удобно записывать двумя шестнадцатеричными цифрами.

Const   nn=20; var   d: array[1..nn,1..nn] of integer;   zr,zc: array[1..nn] of boolean; { строки и столбцы }   n,m,i,j,nr,nc: integer; begin   write('укажите n и m: '); read(n,m);   randomize;   writeln('и с х о д н ы й    м а с с и в');   nr: =0; nc: =0;   for i: =1 to n do zr[i]: =false;   for j: =1 to m do zc[j]: =false;   for i: =1 to n do begin       for j: =1 to m do begin           d[i,j]: =random(21)-10;           write(d[i,j]: 4);           if d[i,j]=0 then begin zr[i]: =true; zc[j]: =true end;           end;       writeln       end;   for i: =1 to n do       if zr[i] then           for j: =1 to m do d[i,j]: =0;   for j: =1 to m do       if zc[j] then           for i: =1 to n do d[i,j]: =0;   writeln('м а с с и в - р е з у л ь т а т');   for i: =1 to n do begin       for j: =1 to m do write(d[i,j]: 4);       writeln       end end. пример укажите n и m: 7 12 и с х о д н ы й    м а с с и в   -10    8  -4  -3  -8    9    1  -6    4  -6    5  -1   -8  -2  -8  -7  -3  -1    4    4    5  -1    7  -6     8  -5    8  -1  -8    9    8  -4  -6  -2    0    4     7  -4    8  -9    3    2    9    3    3    6    9    4     9  -3    8    8  -4    9    7    2 -10  -8  -1    8   -10  -8  -8    6  -4  -2  -6    4    8  -1  -3  -9     2    2  -9  -7    0  -6    2  -9  -4  -6    0    5 м а с с и в - р е з у л ь т а т   -10    8  -4  -3    0    9    1  -6    4  -6    0  -1   -8  -2  -8  -7    0  -1    4    4    5  -1    0  -6     0    0    0    0    0    0    0    0    0    0    0    0     7  -4    8  -9    0    2    9    3    3    6    0    4     9  -3    8    8    0    9    7    2 -10  -8    0    8   -10  -8  -8    6    0  -2  -6    4    8  -1    0  -9     0    0    0    0    0    0    0    0    0    0    0    0

Var       x, s, a: real;       i: integer; begin       readln(x);             a : = x;       s : = a;             for i : = 2 to 13 do               if i mod 2 = 1 then begin                       a : = a * (-1) * x * x / ((i - 1) * i);                       s : = s + a;               end;             writeln(s); end.