Question

Ребята, помогите с информатикой пожалуйста! Срочноооо.
Решить в Паскаль. Даю 55 баллов.

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('N =');

 SeqGen(n, i -> 1 / (i * i), 1).Sum.Println;

 var x := ReadReal('X =');

 SeqGen(n, i -> x / (2 * i), 1).Sum.Println;

 SeqGen(n, i -> (2 * i - 1) / i, 1).Product.Print

end.