Задание:
Вычислите сумму первых n элементов 1-1/2+1/3-1/4+1/5-1/6+… .
Решение:
var i,n,s: nteger; BEGIN read (n); for i: =1 to n do if i mod 2=0 then s: =s-1/i; else s: =s+1/i; writeln (s); END.
Знаете другой ответ?
Вычислите сумму первых n элементов 1-1/2+1/3-1/4+1/5-1/6+… .
var i,n,s: nteger; BEGIN read (n); for i: =1 to n do if i mod 2=0 then s: =s-1/i; else s: =s+1/i; writeln (s); END.
Знаете другой ответ?