Напишите пожалуйста, как написать во FREE PASCAL число в степени i+1. Вот сама программа:Program zadacha;Var k,s : Double; n,i :
Напишите пожалуйста, как написать во FREE PASCAL число в степени i+1. Вот сама программа: Program zadacha; Var k,s : Double; n,i : LongInt; Begin k:=0 ReadLn(n); s:=-1; For i:=1 to n do k:=k+exp((i+1)*Ln(s)); WriteLn(k:0:6); ReadLn; <span>End.
</span>Вот условие задачи: Дано натуральное число <span>n. Найдите сумму </span><span>1−<span>1/2</span>+<span>1/3</span>−...+<span><span><span>(<span>−1</span>)</span><span>n+1/</span></span>n</span>. </span><span>Формат входных данных: </span><span>Вводится целое число n<span>(<span>1≤n≤100000</span>)</span>. </span><span>Формат выходных данных: </span>Требуется вывести одно число — значение выражения c точностью до шестого знака после запятой. <span><em><u>Примечания:</u></em> </span><span>Условный оператор и оператор возведения в степень использовать запрещается.</span>
У вас программа считает не формулу, приведенную в условии. Если делать по условию, то: s := 0; i := 1; while (i <= n) do begin s := s + 1/n; inc(n,2); end; i := 2; while (i <= n) do begin s := s - 1/n; inc(n,2); end;