Предмет: Информатика,
автор: Eclakt
Определить сумму s=1/2+2/3+...+n/(n+1)
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(1.To(ReadInteger('n=')).Select(i->i/(i+1)).Sum)
end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(1.To(ReadInteger('n=')).Select(i->i/(i+1)).Sum)
end.
Приложения:
Интересные вопросы