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

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

Задать свой вопрос
2 ответа

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

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

begin

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

end.

3.36697051758274

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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт