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