Lập chương trình tính tổng sau bằng 2 cách dùng câu lệnh for-do và câu lệnh lệnh while-do .S=1/2+1/4+1/6+...+1/2n ( với n là số nguyên dương nhập vào từ hai bàn phím )

Cách 1: For ... do

Program BTT;
Uses crt;
Var n,i: longint;
    S: extended;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        S:=0;
        For i:=1 to n do s:=s+1/(2*i);
        Write('Tong la: ',S:0:2);
        Readln
End.

Cách 2: While ... do

Program BTT;
Uses crt;
Var n,i: longint;
    S: extended;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        S:=0; i:=1;
        While i<=n do
        Begin
                S:=S+1/(2*i);
                inc(i);
        End;
        Write('Tong la: ',s:0:2);
        Readln
End.