Viết chương trình con kiểm tra tính chẵn lẻ của một số nguyên
2 câu trả lời
program kiemtra;
var a: integer;
begin
write('Nhap a: ');
readln(a);
if (a mod 2 = 0) then write(a,' la so chan.') else write(a,' la so le.');
readln;
end.
xin hay nhất
var a: longint;
begin
write('Nhap so can kiem tra: ');
readln(a);
if (a mod 2 = 0) then write(a,' la so chan.') else write(a,' la so le.');
readln;
end.
