Вычислить 1-1/2+1/3...1/9999-1/10000 последовательно слева направо вычисляются 1+1/3+...1/9999 и 1/2+1/4+...1/10000, затем второе значение вычитается из первого. Паскаль!!!
Вычислить 1-1/2+1/3...1/9999-1/10000 последовательно слева направо вычисляются 1+1/3+...1/9999 и 1/2+1/4+...1/10000, затем второе значение вычитается из первого. Паскаль!!!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы