Nhập vào số n kiểm tra số đó có chia hết cho 2 và 5 hay không
2 câu trả lời
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.
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.
