Помогите решить в Паскале

Вычислить: у=1-1/1!+1/2!-1/3! + ... 1/n!. Значение n задать вводом

Question

Информатика

Парамон

18 января, 17:08

Помогите решить в Паскале

Вычислить: у=1-1/1!+1/2!-1/3! + ... 1/n!. Значение n задать вводом

+2

Ответы (1)

Знаете ответ?

Манюша · Answer 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.

Помогите решить в ПаскалеВычислить: у=1-1/1!+1/2!-1/3! + ... 1/n!. Значение n задать вводом

Помогите решить в Паскале

Вычислить: у=1-1/1!+1/2!-1/3! + ... 1/n!. Значение n задать вводом