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

1. var s, i: integer;

   Begin

       S:=0;

       For i:=3 to 100 do if (i mod 2 = 1) 

            Then s:=s + i;

       Write(s);

       Readln

   End.

    

    

   Bình luận

2. program BT_in_le;

   uses crt;

   var i,T: integer;

   Begin

            clrscr;

            for i:=3 to 100 do

                 if i mod 2<>0 then T:=T+i;

            write(‘Tong cac so le tu 3 den 100 = ‘,T);

            readln

   End.

   Bình luận