Вычислить 1-1/2+1/3 ... 1/9999-1/10000 последовательно слева направо вычисляются 1+1/3 + ... 1/9999 и 1/2+1/4 + ... 1/10000, затем второе значение вычитается из первого. Паскаль!

Question

Информатика

Иакинф

7 августа, 13:40

Вычислить 1-1/2+1/3 ... 1/9999-1/10000 последовательно слева направо вычисляются 1+1/3 + ... 1/9999 и 1/2+1/4 + ... 1/10000, затем второе значение вычитается из первого. Паскаль!

+5

Ответы (1)

Знаете ответ на вопрос?

Гордей · Answer 1

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) ;

end.