Дано: а = 1610, b = 1810. какое из чисел с, записанных в двоичной системе, отвечает условию а < с < b. 1) 10 0002 2) 10 0012 3) 10 1012 4) 10 0102

Вданном номере ответ является 3

// pascalabc.net 3.0, сборка 1128 procedure deleterow(var a: array[,] of integer; r: integer); begin   var rows: =a.getlength(0);   var cols: =a.getlength(1);   for var i: =r to rows-2 do       for var j: =0 to cols-1 do a[i,j]: =a[i+1,j];   setlength(a,rows-1,cols) end; begin   var b: array[,] of integer: =((1,2,3,,6,0,8),           (9,10,11,,0,15,,18,19,20));   writeln('исходный массив: ',b);   var n: =b.getlength(0);   var m: =b.getlength(1);   // удаляем строки без нулевых элементов   for var i: =n-1 downto 0 do begin       var foundzero: =false;       for var j: =0 to m-1 do           if b[i,j]=0 then begin foundzero: =true; break end;       if not foundzero then deleterow(b,i) // удалить строку       end;   writeln('результирующий массив: ',b); end. тестовое решение: исходный массив: [[1,2,3,0],[5,6,0,8],[9,10,11,12],[13,0,15,16],[17,18,19,20]] результирующий массив: [[1,2,3,0],[5,6,0,8],[13,0,15,16]]