Циклические алгоритмы

var
s:real;       
n,Z:integer; 
begin    
s:=0;    
Z:=1;    
for n:=1 to 19 do begin        
s:= s+Z*(((n*sqr(-1))/(n*sqr(2)))+(((n*sqr(-1))/(n*sqr(3)))));        
Z:=-Z    
end;   
writeln(' S1= ',s:10:4); 
end.

var
s,a,a1,b,b1,c,c1:real;       
n,Z:integer; 
begin    
s:=0;    
Z:=1;    
for n:=1 to 19 do begin
a:=power(-1,n);
a1:=power(2,n);
c:=(a/a1);
b:=power(-1,n);
b1:=power(3,n);
c1:=(b/b1);
s:= s+Z*(c+c1);        
Z:=-Z    
end;   
writeln(' S1= ',s:10:4); 
end.

var
  s,a,a1,b,b1,c,c1:real;       
  n:integer; 
begin    
  s:=0;    
  for n:=1 to 19 do begin
    a:=power(-1,n);
    a1:=power(2,n);
    c:=(a/a1);
    b:=power(-1,n);
    b1:=power(3,n);
    c1:=(b/b1);
    s:= s+(c+c1);        
  end;   
  writeln(' S= ',s:10:4); 
end.

var
  s:real;       
  n:integer; 
begin    
  s:=0;    
  for n:=1 to 19 do 
    s:= s+(power(-1,n)/power(2,n)+power(-1,n)/power(3,n));        
  writeln(' S= ',s:10:4); 
end.

var
  s, s1, s2:real;       
  n:integer; 
begin    
  s1 := -1/2;
  s2 := -1/3;
  s := s1 + s2;
  for n:=2 to 19 do begin
    s1 := -s1/2;
    s2 := -s2/3;
    s:= s+(s1+s2);        
  end;
  writeln(' S= ',s:10:4); 
end.