Напишите программу ** Паскале, вычисляющую сумму последовательности :

Question

Напишите программу на Паскале, вычисляющую сумму последовательности :

---

Comments

Значение n вводить с клавиатуры?

Answer 1

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  Writeln('S=',SeqGen(ReadInteger('n='),i->(i+2)/(i+1)).Sum)
end.

Тестовое решение
n= 10
S=12.9289682539683

Answer 2

var

i, n:integer;

s, w:real;

begin

writeln('Введите n');

readln(n);

for i:=1 to n do

begin

w:=(i+1)/i;

s:=s+w;

end;

writeln('Ответ: ', s);

end.

Comments

var
i, n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
begin
s:=s+(i+1)/i;
end;
writeln('Ответ: ', s);
end.

---

и зачем лишняя переменная w ?