VCT in ra các số chia hết cho 3 help

0 bình luận về “VCT in ra các số chia hết cho 3 help”

1. program phuongt;

   uses crt;

     var i: integer;

   begin

             clrscr;

             write(‘Cac so chia het co 3 va 5 tu 10 den 90 la: ‘);

             for i:=10 to 90 do if (i mod 3 = 0) and (i mod 5 = 0) then write(i:4);

             readln

   end.

   Bình luận

2. program oken;
   uses crt;
   var i: byte;
   begin
       clrscr;
       write(‘Cac so vua chia het cho 3 va 5(trong khoang 10-90): ‘);
       for i:=10 to 90 do
           if (i mod 3=0) and (i mod 5=0) then
               write(i,’ ‘);
       readln;
   end.

   Bình luận