Question

in pascal
va rog enorm
...​

Answer 1

Răspuns:

program suma;

var

  s:real;

  n:integer;

begin

    s:=0;

    n:=1;

    while(s<=0.999) do

    begin

         s:=s+n/(n+1);

         n:=n+1;

    end;

    writeln('Suma este ',s:6:3,' pentru n = ',n);

    readln;

end.

Explicație: