Программа:
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
