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

1. program tinh_tong;

   uses crt;

   var S,i:integer;

   begin

          clrscr;

          i:=2;  S:=0;

          while i<=100 do

                 begin

                        if i mod 2=1 then S:=S+i;

                        i:=i+1;

                 end;

          write(‘Tong cac so le tu 2 den 100 la: ‘,s);

          readln;

   end.

   Bình luận