D16+1001001=<span> D16+49=D5F</span>
Из предложений, связанных между собой какой-то общей темой.
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
237 = 11101101
Сначала делим на 2:
237 / 2 = 118(1)(так-как есть остаток)
118 / = 59(0)(так-как нет остатка)
59 / 2 = 29(1)
29 / 2 = 14(1)
14 / 2 = 7(0)
7 / 2 = 3(1)
3 / 2 = 1(1)
1 / 2 = 0(1)
А потом записываем с конца.
С остальными так-же.(но лучше воспользоваться стандарнным windows'ким калькулятором(вид->программист->и когда введёшь число выбрать Bin :))
Таблица Истинности в прилагающем файле