viết chương trình đếm số lượng các số chia hết cho4 nhỏ hơn 2000

0 bình luận về “viết chương trình đếm số lượng các số chia hết cho4 nhỏ hơn 2000”

1. program Min;
   uses crt;
   var i,dem:integer;
   begin
      clrscr;
      for i:=1 to 2000 do if i mod 4 = 0 then inc(dem);
      writeln(‘So luong cac so chia het cho 4, nho hon 2000 la: ‘,dem);
      readln
   end.

   😀

   Bình luận

2. var i,kq:integer;

   begin

           for i:=1 to 2000 do

                                   if i mod 4 = 0 then inc(kq);

            write(‘So cac so chia het cho 4 nho hon 2000 la: ‘,kq);

             readln;   

   end.

   Bình luận