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

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

Видимо "шоб було"

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

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.

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