dùng cấu trúc lặp for do dạng tiến để viết chương trình đưa ra màn hình các số lẻ hoặc chia hết cho 5 trong đoạn [200,300]

0 bình luận về “dùng cấu trúc lặp for do dạng tiến để viết chương trình đưa ra màn hình các số lẻ hoặc chia hết cho 5 trong đoạn [200,300]”

1. uses crt;
   var i,n: integer;
   begin
   clrscr;
   write(‘Cac so chia het cho 5 tu 200 den 300 la: ‘);
   for i:=200 to 300 do
   if (i mod 5 = 0) and (i mod 2 <> 0) then write(i:5,’ ‘);
   readln;
   end.

   đã test mong đc vote

   Bình luận

2. var i: word;

   Begin

       For i:=200 to 300 do

           If (i mod 2=1) or (i mod 5=0)

           Then write(i, ‘ ‘);

       Readln

   End.

   Bình luận