0
На PascalABC.NET:
begin
ArrGen(10, i -> i * i - 1, 1).Product.Println;
end.
Писать программу по хорошему смысла нет. При i =1 получаем a[1] = 0 и все дальнейшие умножения от 0 не будут отличаться.
0
На PascalABC.NET:
begin
ArrGen(10, i -> i * i - 1, 1).Product.Println;
end.
Писать программу по хорошему смысла нет. При i =1 получаем a[1] = 0 и все дальнейшие умножения от 0 не будут отличаться.