Ответы
Ответ дал:
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.
Приложения:
![](https://st.uroker.com/files/1ee/1ee68196b03a13528376b7a5abbff027.jpg)
![](https://st.uroker.com/files/170/17096a54aea322c1194a34576881aa42.jpg)
Вас заинтересует
1 год назад
1 год назад
8 лет назад
8 лет назад
8 лет назад