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

Question

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

---

Answer 1

// 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.

Answer 2

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

Comments

s:=0; for i:=1 to n do s:=s+1\(n*n*(1+n));

---

пиши жалобу, мне на этот сервис - ПОФИГ. Из-за того, что скучно сижу тут.

---

если хочешь, то отформатируй

---

Я точно не в хлеву воспитывался. Утверждаете про это, совсем неизвестного вам человека.

---

От комментарий нельзя точно узнать о воспитании человека.

---

Хоть я и вел себя на данном общении не воспитанно, но это ничего не значит.