Question

Viết chương trình nhập số nguyên a bất kì từ bàn phím cho biết a là số chẵn hay số lẻ ,số âm hay số dương

Answer 1

var a:longint;

begin

write('Nhap a = ');readln(a);

if a mod 2 = 0 then writeln(a,' la so chan')

else writeln(a,' la so le');

if a > 0 then write(a,' la so duong');

if a < 0 then write(a,' la so am');

if a = 0 then write(a,' khong am cung khong duong');

readln;

end.