Question

Второе по списку сверху перевести в формулу на паскале.

Answer 1

begin

 var k := 10;

 var x := ReadArrReal('Введи 10 элементов Х:', k);

 var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;

 y.Println;

end.