Определить сумму s=1/2+2/3++n/(n+1) - вопрос №848425912231 от bilianskamaria03 01.06.2023 05:29

Question

Информатика: Определить сумму s=1/2+2/3++n/(n+1)

bilianskamaria03 · Answer

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln(1.To(ReadInteger('n=')).Select(i->i/(i+1)).Sum)
end.

Определить сумму s=1/2+2/3++n/(n+1)