Question

Составить программу вычисления суммы для любого натурального числа n и вычислить ее для n=12:

Answer 1

Program calculus;var a,b,n:integer;beginwrite('Введите число a');read(a);write('Введите число b');read(b);n:=a+b;write('Сумма a+b=');write(n);end.

Answer 2

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

begin
  var n:=ReadInteger('n=');
  Writeln('S=',SeqGen(n,i->(i+1)/(i+2)).Sum)
end.

Пример
n= 12
S=9.81986624486625

Во вложении дано точное решение в простых дробях и его приближение десятичной дробью с 20 знаками. Вычисление по приведенной программе различается на единицу в последнем разряде, что в данном случае является пределом точности машинной арифметики, принятой для переменных типа double.