Question

Дано натуральное число N. Напишите программу для вычисления суммы первых N сомножителей

P=2/1 . 3/2 . 4/3 . (N+1)/N

Answer 1

// PascalABC.NET

begin

 SeqGen(ReadInteger, a -> (a + 1) / a, 1).Sum.Print

end.