Question

Вычислить сумму 20 первых членов последовательности, заданной формулой общего члена

Answer 1

var a:real;
i: integer;
begin
a:=0;
for i:=1 to 20 do
a:=a+((2*k+1)/(4*k*k*k-3));
writeln('Сумма 20 первых членов последовательности равна ',s);
readln;
end.

Answer 2

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 SeqGen(20, k -> (2 * k + 1) / (4 * k * k * k - 3), 1).Sum.Println

end.

3.36697051758274