Помогите пожалуйста на pascalabc.net
По данному числу n вычислите сумму 1+1/22+1/32+...+1/n2.
Входные данные
Вводится одно число n, не превосходящее 100000.
Выходные данные
Необходимо вывести значение суммы.
Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
(SeqGen(ReadInteger,i->1/(10*(i+1)+2)).Sum+1).Println
end.
Пример
10
1.26596470171236
Внимание! Если программа не работает, обновите версию!
begin
(SeqGen(ReadInteger,i->1/(10*(i+1)+2)).Sum+1).Println
end.
Пример
10
1.26596470171236
Похожие вопросы
8 лет назад
9 лет назад