các anh ơi giúp em tin 11với sắp kiểm tra rùi 2 hôm nữa kiểm tra ruj`

[htkhiet]

bài 2:
ct tính tổng S= 1 + 1/3 + 1/5 + ... + 1/(2n+1)

var n,i:integer;
    s:real;
BEGIN
     repeat     
           write('nhap n nguyen duong : '); readln(n);
     until n>0; 
     s:=1.0;  
     for i:=1 to n do
         s:=s+ 1/(2*i+1);
     writeln('tong s = ',s:5:3); 
     readln;
END.

ct tính tổng S = 1 - 1/2 + 1/3 - 1/4 + ... + ((-1)^(n+1))*1/n

var n,i:integer;
    s:real;
BEGIN
     repeat     
           write('nhap n nguyen duong : '); readln(n);
     until n>0;
     s:=0.0;  
     for i:=1 to n do
         begin
              if (i mod 2 = 1) then s:=s+ 1/i
              else s:= s -1/i;
         end;
     writeln('tong s = ',s:5:3); 
     readln;
END.

Ngay chỗ này bạn có thể sửa lại như sau (mình thấy nó hay hơn. hihihi)
s:=0.0;dau=1;
for i:=1 to n do
begin
s:=s + dau/i;
dau:= -1*dau;
end;

Thân