Sử dụng câu lệnh while…do để tính tổng các số tự nhiên chẵn từ 2 đến 100

C1:Var S,i:Longint;

begin

       S:=0;

       For i:=2 to 100 do If i mod 2 = 0 then S:=S+i;

       Write(‘Tong cac so chan tu 2 den 100 : ‘,S);

       Readln;

End.

C2:Var i,S:Longint;

begin

       i:=2;  S:=0;

       while i<=100 do

              begin 

                     S:=S+i;

                     i:=i+2;

              end;

       write(‘Tong cac so chan tu 2 den 100: ‘,S);

       Readln;

End.