Вопрос по информатике:
Помогите решить в Паскале
Вычислить: у=1-1/1!+1/2!-1/3!+...1/n!.Значение n задать вводом
Пожаловаться
- 21.09.2016 04:17
- Информатика
- remove_red_eye 16893
- thumb_up 12
Ответы и объяснения 1
Var
n,i:integer;
s:real;
begin
s:=1;
readln(n);
for i:=1 to n do
if i mod 2 = 1 then
s:=s-i*ln(2)
else
s:=s+i*ln(2);
writeln(s);
end.
n,i:integer;
s:real;
begin
s:=1;
readln(n);
for i:=1 to n do
if i mod 2 = 1 then
s:=s-i*ln(2)
else
s:=s+i*ln(2);
writeln(s);
end.
Пожаловаться
- 22.09.2016 10:12
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы