Question

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.

Answer 1

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.