Răspuns:
program suma;
var
s:real;
n:integer;
begin
s:=0;
n:=1;
while(s<=0.999) do
s:=s+n/(n+1);
n:=n+1;
end;
writeln('Suma este ',s:6:3,' pentru n = ',n);
readln;
end.
Explicație:
