Question

Написать программу на Паскаль с использованием функции, которая вычисляет следующее выражение.

Answer 1

// PascalABC.NET

function F(k: integer) := Sqrt(2 * k) * (2 * k) ** (2 * k) / 2;

begin

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

 var y := 0.0;

 for var k := 1 to n do

   y += F(k);

 Print(y)

end.

Объяснение:

Формула общего члена a = √(2n) × (2n)²ⁿ / 2