Question

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

Answer 1

Вот держите:

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.