Viết ct kiểm tra các số từ 1 -> 20 có chia hết cho 3 hay ko, in các số đó ra màn hình

0 bình luận về “Viết ct kiểm tra các số từ 1 -> 20 có chia hết cho 3 hay ko, in các số đó ra màn hình”

1. Uses crt;

   Var i: integer;

   Begin

        Clrscr;

        For i:=1 to 20 do if i mod 3 = 0 then writeln(i,’ ‘);

   Readln

   End.

   Bình luận

2. uses crt;

   var

   begin

    clrscr;

      write (‘cac so tu 1 den 20 chia het cho 3 la: ‘);

      for i:=1 to 20 do

       if i mod 3=0 then

        write (i,’ ‘);

     readln;

   end.

   học tốt

   cho xin 5*   cảm ơn    câu trả lời hay nhất !!!!

   Bình luận