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