Изменить фон слайда.................................
846 | 423 | 211 | 105| 52 | 26 | 13 | 6 | 3 | 1
---------------------------------------------------------
0 | 1 | 1 | 1 | 0 | 0 | 1 | 0 | 1 | 1 число записывается справа налево:
846₁₀= 1101001110₂= 1516₈ = 34E₁₆
1533 | 716 | 358 | 179 |89 | 44| 22| 11 | 5 | 2 | 1
--------------------------------------------------------------
1 | 0 | 0 | 1 | 1 | 0 | 0 | 1 | 1| 0 | 1
1533₁₀=10110011001₂ = 2775₈ = 5FD₁₆
1101001110₂ + 10110011001₂ =100011100111₂
1516₈ + 2775₈ = 4513₈
34E₁₆ + 5FD₁₆ = 94B₁₆
<em>Поскольку в Windows-приложениях нет понятия "чистый экран", ввод/вывод был направлен в DOS-окно.</em>
/<u>/ PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
uses Crt;
begin
var x:=ArrRandom(ReadInteger('m='),-50,50);
ClrScr; x.Println;
var y:=x.Select(t->t<0?-t:t).ToArray; y.Println;
Writeln(y.Where(t->t<>0).Aggregate(BigInteger(1),(p,q)->p*q))
end.