Ответы и объяснения

2012-12-12T14:46:19+00:00

Program Pr1;
uses crt;
var i,n:integer;
a,b:real;
Begin
clrscr;
readln(n);
a:=1;
for i:=2 to n do begin
if i mod 2=0 then b:=-(1/i)
else b:=1/i;
a:=a+b;
end;
writeln(a:5:3);
end.