Viết chương trình nhập vào một số nguyên N, in ra màn hình số đó có chia hết cho 2 hay không
2 câu trả lời
program bai_giai;
uses crt;
var n:longint;
begin
clrscr;
write('nehap n:');readln(n);
if(n mod 2=0)then write('n chia het cho 2')else write('n khong chia het cho 2');
readln;
end.
uses crt;
var n :longint;
begin
clrscr;
write('Nhap so nguyen N'); readln(n);
if n mod 2=0 then write (n,'Chia het cho 2');
else
write (n,'khong chia het cho 2');
readln;
end.