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

0 bình luận về “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”

1. 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.

   Bình luận

2. program tinh_tong;

   uses crt;

   var i,S:integer;

   begin

          clrscr;

          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 la: ‘,s);

          readln;

   end.

   Bình luận