===== 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.
Ответ:
1.
1101₂ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ = 13₁₀
X = 113₁₀ - 13₁₀ = 100₁₀
100₈ = 0*8⁰ + 0*8¹ + 1*8² = 64₁₀
2.
0,98765
0,0000123
1359000
0,00019569120
Объяснение:
1 и 2 решил, 3 и 4 я не в теме, добавьте их отдельным вопросом, может кто ответит
If b%a==0: print ('YES')
Else: print ('NO')
Перевод объекта из одного состояние в другое!
Это элементарно!
Т.к. 129>128. то 7 бит будет мало (2^7=128). Т.о. надо минимум 8 бит (2^8=256)