===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var x := a.Where(p -> p > 0).ToArray;
var y := a.Where(p -> p < 0).ToArray;
x.Println;
y.Println
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 я не в теме, добавьте их отдельным вопросом, может кто ответит
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Replace('ма','ко').Println
end.
<u>Пример</u>
Тамара сломала куклу.
Такора слокола куклу.
А) Пенал, тетрадь, учебник.
Б) Папка "Службы", Папка "Игры", Корзина.
В) Диск, Флеш-карта, дискета.
Г) Растения, животные, клетки.
Д) Уравнения, числа, примеры.
Е) Карты, масштабы, мореплаватели.
Ж)Алгоритмы, схемы, данные.
100мбит = 12500килобайт.
0.1 / 125 = 0.00008
Ваш ответ: 0,00008.