получается число 246 дальше незнаю но думаю на до делить
<span>1888-1890 Табулятор Холлерита, первое автоматическое вычислительное устройство
</span><span />
Var i: integer;
a, b:real;
begin
i := 1;
a := 0;
while(i<=9999) do begin
a := a + 1 / i;
i := i + 2;
end;
i := 2;
b := 0;
while(i<=10000) do begin
b := b + 1 / i;
i := i + 2;
end;
writeln(a-b);
<span>end.</span>
А=6, 6mod2=0, то печать а+2, т.е печать 6+2= 8
ответ 8