Nhập vào số n kiểm tra số đó có chia hết cho 2 và 5 hay không

0 bình luận về “Nhập vào số n kiểm tra số đó có chia hết cho 2 và 5 hay không”

1. Program az ;

   Uses crt;

   Var n : integer; 

   Begin

   Clrscr; 

   Write (‘ nhap n = ‘) ; Readln (n);

   If (n mod 2=0) then writeln ( n, ‘ chia het cho 2′) else writeln ( n ,’ khong chia het cho 2′);

   If ( n mod 5= 0 ) then writeln ( n,’ chia het cho 5′) else writeln ( n,’ khong chia het cho 5 ‘);

   Readln

   End.

   Bình luận

2. Uses crt;
   Var n: integer;
   Begin
   Clrscr;
        Write(‘Nhap n = ‘);
        If (n mod 2 = 0) and (n mod 5 = 0) then writeln(‘Co’) Else writeln(‘Khong’);
   Readln
   End.

   Bình luận