Предмет: Информатика,
автор: evgen1243
Вычислить сумму ряда 1 - 1/2 +1/3 - ... +1/999 - 1/1000 справа – налево, в паскале
Ответы
Автор ответа:
0
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 даже с калькулятором считать х_х
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 даже с калькулятором считать х_х
Похожие вопросы
Предмет: Литература,
автор: Аноним
Предмет: Физика,
автор: kallipso69
Предмет: Английский язык,
автор: adolat75uf
Предмет: Математика,
автор: Аноним