Программа на языке PascalABC.NET:
begin var s: real:= 0; var n: integer:= readInteger(); for var i: integer:= 0 to (n-1) do if(i mod 2 > 0) then s:= s-power(2,-i) else s:= s+power(2,-i); writeln(s:0:6); end.
Задание выполнено!
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Программа на языке PascalABC.NET:
begin var s: real:= 0; var n: integer:= readInteger(); for var i: integer:= 0 to (n-1) do if(i mod 2 > 0) then s:= s-power(2,-i) else s:= s+power(2,-i); writeln(s:0:6); end.
Задание выполнено!