Sử dụng câu lệnh lắp để viết chương trình tính tổng các dãy sau : a, A= 1+1/3+1/5+...+1/(2n+1) b, B= 1+1/2+1/4+...+1/2n (n khác 0) với n đc nhập vào từ bàn phím

a)

uses crt;
var n,i:longint;
      s:real;
begin
      clrscr;
      write('Nhap n: '); readln(n);
      for i:=1 to 2*n+1 do if i mod 2=1 then s:=s+1/i;
      writeln('A=',s:0:2);
      readln;
end.

b)

uses crt;
var n,i:longint;
      s:real;
begin
      clrscr;
      write('Nhap n: '); readln(n);
      for i:=1 to 2*n do if (i<>0) and (i mod 2=0) then s:=s+1/i;
      writeln('B=',s:0:2);
      readln;
end.

a)program oken;

uses crt;

var i,n,tong:integer;

begin

write('nhap so phan tu cua mang: '); readln(n);

tong:=1;

for i:=1 to (n+n+1) 

    if i mod 2=1 then tong:=tong+(1/i);

writeln('tong cua day so A: ',tong);

readln;

end.

b)

program oken;

uses crt;

var i,n,tong:integer;

begin

write('nhap so phan tu cua mang: '); readln(n);

tong:=1;

for i:=1 to (n+n) 

    if (i mod 2=0) and (n<>0) then tong:=tong+(1/i);

writeln('tong cua day so B: ',tong);

readln;

end.