Срочноооо!!!
найдите сумму чисел 1/2+1/4+1/6+...1/20

НУ ладн

Ну*

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.

Если честно, то не понятно в чем суть вопроса...И тут легко ошибиться, но ответ 1.98751/2=0.51/4=0.251/6=0.1666...~0.71/8=0.1251/10=0.11/12=0.08333~ 0.081/14=0.07142...~0.071/16=0.06251/18=0.051/20=0.05