Вопрос по информатике:
Вычислить сумму ряда 1 - 1/2 +1/3 - ... +1/999 - 1/1000 справа – налево, в паскале
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.03.2016 21:43
- Информатика
- remove_red_eye 9702
- thumb_up 29
Ответы и объяснения 1
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 даже с калькулятором считать х_х
- 22.03.2016 20:04
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.