Question

Даю 15 баллов !!!
Срочнооо!!!!

Дано натуральное число n вычислить p= (1+1/1^2) * (1+1/2^2) *...* (1+1/n^2)

Answer 1

===== PascalABC.NET =====

begin

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

 Range(1, n).Select(i -> 1 + 1 / Sqr(i)).Product.Println

end.