Sử dụng câu lệnh while do để viết chương trình tính tổng D= tổng các số lẻ trong phạm vi 2021

0 bình luận về “Sử dụng câu lệnh while do để viết chương trình tính tổng D= tổng các số lẻ trong phạm vi 2021”

1. program tong_sole_nhohon2021;

   uses crt;

   var i:integer;

         t:longint;

   begin

        clrscr;

        t:=0;  i:=1;

        while i<=2021 do

              begin

                   t:=t+i;

                   i:=i+2;

              end;

        write(t);

        readln;

   end.

   Bình luận

2. uses crt;
   var i,s:integer;
   begin
         clrscr;
         s:=0;i:=1;
         while s<=2021 do
               begin
                     s:=s+i;
                     i:=i+2;
               end;
         write(‘Tong cac so le trong pham vi be hon hoac bang 2021: ‘,s);
         readln;
   end.

   Bình luận