Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thanh Nhàn Vương

Viết chương trình nhập vào từ bàn phím số nguyên N( 0<n<10000).

Kiểm tra xem số đó có chia hết cho 2 và cho 3 không, hay số đó không chia hết cho cả 2 và 3, hoặc chia hết cho 2  nhưng không chia hết cho 3 hay ngược lại không chia hết cho 3 nhưng không chia hết cho 2.

Nguyễn Trung Hiếu
20 tháng 2 2022 lúc 16:43

Uses CRT;
Var n: word;
Begin
  Clrscr;
  write('Nhap n:  '); readln(n);
       if (n mod 2 = 0) and (n mod 3 = 0) then write('So do chia het cho 2 va 3')
  else if (n mod 2 <>0) and (n mod 3 <> 0) then write('So do khong chia het cho 2 va 3')
  else if (n mod 2 = 0) and (n mod 3 <> 0) then write('So do chia het cho 2 nhung khong chia het cho 3')
  else write('So do chia het cho 3 nhung khong chia het cho 2');
readln
end.


Các câu hỏi tương tự
Hân Chướng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Ngọc Linh
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Triển Hoàng Đình
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Tạ Minh Quân
Xem chi tiết
WinX Enchantix Phép Thuậ...
Xem chi tiết
Trịnh Ngụ Quân
Xem chi tiết