##
var x := 3;
(1..4).Select(n -> ((x-1)/(x+1)) ** (2 * n + 1) / (2 * n + 1)).Sum.Print;
(1..8).Select(k -> (k+3)/(k+5)).Product.Print
Поделитесь своими знаниями, ответьте на вопрос:
написать программу в Паскале для данного задания. Необходимо вычислить сумму и произведение
##
var x := 3;
(1..4).Select(n -> ((x-1)/(x+1)) ** (2 * n + 1) / (2 * n + 1)).Sum.Print;
(1..8).Select(k -> (k+3)/(k+5)).Product.Print