// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var N:=ArrRandom(50,-111,348); N.Println; Writeln('Произведение элементов, кратных 5, равно ', N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b)); if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then Writeln('Нечетных элементов больше') else Writeln('Четных элементов больше') end.
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var N:=ArrRandom(50,-111,348); N.Println; Writeln('Произведение элементов, кратных 5, равно ', N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b)); if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then Writeln('Нечетных элементов больше') else Writeln('Четных элементов больше') end.
Будем переводить из 10СС в 8СС, значит будет делить на 8
1) 229 / 8 = 28 остаток 5
Деление продолжим, тк 28>8
2) 28 / 8 = 3 остаток 4
3 < 8 значит деление закончили
Записать число нужно начиная с последнего частного и все остатки в обратном порядке:
3 4 5
Значит число 229 (10) = 345 (8)