Напишите , как написать во 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; end. вот условие : дано натуральное число n. найдите сумму 1−1/2+1/3−+(−1)n+1/n. формат входных данных: вводится целое число n(1≤n≤100000). формат выходных данных: требуется вывести одно число — значение выражения c точностью до шестого знака после запятой. примечания: условный оператор и оператор возведения в степень использовать запрещается.
Если делать по условию, то:
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;