Вычислите сумму первых 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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.