viết chương trình chọn các chữ số chia hết cho 2 không chia hết cho 5 trong dãy số từ 1 đến 588 giúp mik với ạ mai mình nộp r

0 bình luận về “viết chương trình chọn các chữ số chia hết cho 2 không chia hết cho 5 trong dãy số từ 1 đến 588 giúp mik với ạ mai mình nộp r”

1. Program bai_tap;

   Uses crt;

   Var i: integer;

   Begin 

   Writeln (‘Cac so chia het cho 2 va khong chia het cho 5 trong day la:’);

   For i:=1 to 588 do 

   If ((i mod 2=0) and (i mod 5 <>0)) then 

   Write (i:6);

   Readln

   End.

   Bình luận

2. uses crt;
   var i:longint;
   begin
      clrscr;
      writeln(‘Cac so chia het cho 2 ma khong chia het co 5 la: ‘);
      for i:=1 to 588 do
         if (i mod 2=0)and(i mod 5<>0) then writeln(i);
   readln
   end.

   Bình luận