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

Question

Информатика

Ленин

16 января, 12:28

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

+3

Ответы (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.