1.
а)10001(2 снизу) = 1∙2(4 сверху)+0∙2(3 сверху)+0∙2(2 сверху)+0∙2(1 сверху)+1∙2(0 сверху) = 16+0+0+0+1 = 17(10 снизу)
б)110110110(2 снизу) = 1∙2(8 сверху) +1∙2(7 сверху)+0∙2(6 сверху)+1∙2(5 сверху)+1∙2(4 сверху)+0∙2(3 сверху)+1∙2(2 сверху)+1∙2(1 сверху)+0∙2(0 сверху) = 256+128+0+32+16+0+4+2+0 = 438(10 снизу)
2.
а)11100(2 снизу)
б)10101111(2 снизу)
F*D+не(F->D)=F*D+не(неF+D)=F*D+F*неD=F(D+неD)=F*1=F
===== PascalABC.NET =====
begin
var a := ArrRandom(20, -1000, 1000);
a.Println;
a.Where(p -> p > 7)
.Aggregate(BigInteger.One, (p, q) -> p * q)
.Print
end.