Составить программу в Паскале и блок схему:
Вычисление суммы ряда S=1-1/2+1/4-1/6+...1/N.

Честь вам и хвала! Спасибо, выручили)

Вот держите:var n,i,l,m:integer; sum:real;begin     readln(n);     sum:=1; l:=1;     while m<>n do  begin         m:=m+2;         sum:=sum-((1/m)*l);         l:=l*-1;     end;     writeln(sum);end.