profile
Опубликовано 5 лет назад по предмету Информатика от viktoriy19962011

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

  1. Ответ
    Ответ дан LikeSmileLJkee
    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.
  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