Question

Sa se scrie un program care va calcula suma primilor n termeni: 1-1/2+1/3-1/4+1/5-1/6...
Utilizați în ciclu instrucțiunea if(...), then, else

Answer 1

var

 a, b: integer;

 s: real;

begin

 write('N:');

 read(b);

 a := 1;

 s := 0.0;

 while(a <= b) do

 begin

   if (odd(a)) then

     s := s + 1.0 / a

   else

     s := s - 1.0 / a;

   a := a + 1;

 end;

 writeln('Suma=', s);

end.