Вычислить сумму ряда 1 - 1/2 +1/3 - ... +1/999 - 1/1000 справа – налево, в паскале
Answers & Comments
HRAshton
Var x, y: Real; i: integer; begin for i := 1000 downto 1 do begin if (i mod 2 = 0) then y := -1 * i else y := i; writeln('1/', i); x := x + 1 / y; end; writeln('> ', x); end.
А вручную это пришлось бы минут 30 даже с калькулятором считать х_х
Answers & Comments
i: integer;
begin
for i := 1000 downto 1 do
begin
if (i mod 2 = 0) then y := -1 * i
else y := i;
writeln('1/', i);
x := x + 1 / y;
end;
writeln('> ', x);
end.
А вручную это пришлось бы минут 30 даже с калькулятором считать х_х