Sử dụng câu lệnh while…do để tính tổng các số tự nhiên lẻ từ 3 đế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 lẻ từ 3 đến 100”

1. Program tinhtong;

   Var i,S:integer;

   Begin

   i:=3;

   While i<=100 do If i mod 2 = 1 then S:= S+i;

   Writeln(‘ tong cac so le :’,S);

   Readln;

   end.

   Bình luận

2. Var i : byte ;

         S : integer ;

   Begin 

        i:= 3 ; S := 0 ;

        While I <= 100 do

            Begin 

                 S := S + i ;

                i := i + 2  ;

             End; l 

         Writeln(‘tổng các số tự nhiên lẻ từ 3 đến 100 la ‘,S );

          Readln

   End.

   Bình luận