Вычислите сумму ряда n чисел
На языке Паскаль
S=2/3+3/4+4/5+5/6

Программа:

Pascal:

var

 i, n: integer;

 S: real;

begin

 write('n = ');  readln(n);

 for i := 1 to n do S := S + (1 + i)/(2 + i);

 writeln(S);

end.

program sum;

var

S : real := 0;

n : integer;

Begin

write('введите число элементов n = ');

readln(n);

for var i := 1 to n do begin

  S := S+(i+1)/(i+2);

end;

writeln('S = ', S);

end.

Объяснение:

протестировано в PascalABC