Какова роль инструмента Следуй за мной в построении конусса и сферы

Для перевода числа из десятичной системы счисления в двоичную нужно делить это число на 2 до тех пор, пока не получим ноль, и остатки выписывать. делить нужно нацело, то есть дробной части быть не должно. 9 / 2 = 4, остаток 1 4 / 2 = 2, остаток 0 2 / 2 = 1, остаток 0 1 / 2 = 0, остаток 1 теперь записываем остатки снизу вверх (хотя тут не важно): 1001 9(10) = 1001(2). второй способ: 9 = 8 + 1 = 2^3 + 2^0 число 2 в какой-либо степени в системе счисления с основанием 2 представляет собой единицу, после которой идут нули, количество которых равно этой степени: 2^3 = 1000(2) 2^1 = 1(2) 1000(2) + 1(2) = 1001(2)

Program q;       var a: array[1..7,1..7] of integer; min7,sum1,odd,i,k: integer; avg5: real; begin;       randomize;       for i: =1 to 7 do begin;             for k: =1 to 7 do begin;                   a[i,k]: =random(-10,10);                   if a[i,k] mod 2 = 1 then odd+=1;             end;       end;       min7: =a[1,7];       for i: =1 to 7 do if a[7,i]< min7 then min7: =a[i,7];       for i: =1 to 7 do sum1+=a[i,1];       for i: =1 to 7 do avg5+=a[5,i];       avg5/=7;       for i: =1 to 7 do a[1,i]: =1;       write('минимальный элемент в 7 столбце ', min7, ', сумма элементов первой строки ', sum1, ', кол-во нечётных чисел ', odd); end.