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.