giúp mk vs m.n s=1/2+1/4+1/6+-+1/2n xđbt , mttt,vct

uses crt;

var n,i:word;

    s:real;

BEGIN

        clrscr;

        write(‘Nhap N:’); readln(n);

        s:=0;

        i:=2;

        while i<=n*2 do

        begin

                s:=s+1/i;

                i:=i+2;

        end;

        write(‘S=’,s:0:3);

        readln

END.

Đã test, số vòng lặp của CT ít hơn 1 nửa so với vòng lặp for…to…do