Дано натуральное N. Найдите сумму чисел 1/3+1/5+1/7+...+1/(2х+1)
Дано натуральное N. Найдите сумму чисел 1/3+1/5+1/7+...+1/(2х+1)
Гость
Ответ(ы) на вопрос:
Гостьvar n, i: word;
sum: real;
begin
write ('n = ');
readln (n);
sum := 0;
for i := 1 to n do
sum := sum + 1/(2*i+1);
writeln (sum:6:5);
end.
Гость// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(1,ReadInteger).Select(i->1/(2*i+1)).Sum)
end.
Пример
10
1.1808745777786
Не нашли ответ?
Похожие вопросы