Điều Kiện: X mod 2=0
B1: Khai báo biến X kiểu Longint;
B2: Nhập biến X từ bàn phím
B3: Kiểm tra biến X
Nếu X mod 2=0 thì X chia hết cho 2
ngược lại X không chia hết cho 2
uses crt;
var X:longint;
begin
write('nhap X: ');readln(x);
if x mod 2=0 then write('X chia het cho 2')
else write('X khong chia het cho 2');
readln
end.
Mình ko biết bạn đang cần giúp cái nào nên mình làm cả 2 cái, còn nếu 2 cái trên không đúng với điều bạn cần thì cứ nhắn lại cho mình. (nếu có sai nhớ thông cảm nhee)