Question

Дано натуральное n. Вычислить
2/1+3/2+4/3+...+n+1/n.Паскаль.

Answer 1

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var n:=ReadInteger('n=');
write(SeqGen(n,i->(i+1)/i,1).Sum);
end.