Поле шахматной доски представляется парой натуральных чисел, каждое из которых не превосходит восьми: первое число - номер вертикали (при счете снизу вверх), второе - номер горизонтали (при счете слева направо даны натуральные числа k, l, m, n, каждое из которых не превосходит восьми. требуется: 1. выяснить, являются ли поля (k, l) и (m, n) полями одного цвета 2. на поле (k, l) расположен ферзь. угрожает ли он полю (m, n)? в delphi.

1) ((k%2 == m%2) & (l%2 == n%2)) |  ((k%2 ! = m%2) & (l%2 ! = n%2)) 2) (k == m) | (l == n) | (abs(m-k) == abs(n-l)) где & - и       | - или       ==   - равняется       ! = - не равно       abs - модуль       % - остаток по модулю

1-- а)  453₁₀ = 111000101₂ = 705₈ = 1с5₁₆ б) 481₁₀ = 111100001₂ = 741₈ = 1e1₁₆ в) 461.25₁₀ =  111001101.01₂ =  715.2₈ =  1cd.4₁₆ г)  667.25₁₀ =  1010011011.01₂ =  1233.2₈ =  29b.4₁₆ д)  305.88₁₀ =  100110001.1110₂ =  461.7024₈ =  131.e147₁₆ --2-- а) 111001010₂ = 458₁₀ б) 1101110001₂  = 881₁₀ в) 1001010100.10001₂ =  596.53125₁₀ г) 111111110.11001₂ =  510.78125₁₀ д) 1634.35₈ =  924.453125₈ е) 6b.a₁₆ =  107.625₁₀ --3-- а) 101110001₂  +  101111001₂  =  1011101010₂ б) 1110001110₂  +  1100110111₂ =  11011000101₂ в) 10000011010.01₂  +  1010010110.01₂ =  11010110000.1₂ г) 1710.2₈  +  773.24₈ =  2703.44₈ д) 3e7.7₁₆  +  32.2₁₆ =  419.9₁₆ --4-- а) прямой код:   0.1111000010₂  – 0.1110000011₂ =  0.0000111111₂     обратный:   0.0000111101₂  – 0.0001111100₂ =  000000000000000.0000111111₂     дополнительный:   0.0000111101₂  – 0.0001111100₂ =  000000000000000.0000111111₂

Const n=10; m=8; var a: array[1..n,1..m]of integer; b: array[1..m]of integer; i,j,min: integer;   begin       for i: =1 to n do           begin               writeln;                   for j: =1 to m do                       begin                           a[i,j]: =random(100);                           write(a[i,j]: 4);                       end;             end; writeln; for j: =1 to m do     begin         min: =a[i,1];             for i: =1 to n do                     if a[i,j]< min then                           min: =a[i,j];           b[j]: =min;       end; for i: =1 to m do     write(b[i]: 4); end.