smnoregrets Const num=20;
var i,j:byte;
    r:real;

begin
  i:=2;
  r:=0;
  while i<=num do begin
    r:=r+1/i;
    i:=i+2;
  end;
 
  writeln('1/2+1/4+1/6+...1/20 = ', r);
end.

Cakyra0Ychuxa Если честно, то не понятно в чем суть вопроса...И тут легко ошибиться, но ответ 1.9875
1/2=0.5
1/4=0.25
1/6=0.1666...~0.7
1/8=0.125
1/10=0.1
1/12=0.08333~ 0.08
1/14=0.07142...~0.07
1/16=0.0625
1/18=0.05
1/20=0.05