nhập một số nguyên a từ bàn phím kỉm tra và in ra màng hình dây là số chẳn hay số lẽ
2 câu trả lời
program bai_giai;
uses crt;
var a:longint;
begin
clrscr;
write('a=');readln(a);
if( a mod 2=0)then write(a,' la so chan')else(a,' la so le');
readln;
end.
program b1;
uses crt;
var a:integer;
begin
write('Nhap so: ');read(a);
if a mod 2=0 then write('day la so chan') else wirte('day la so le');
readln;
end.
Mong bạn vote hay nhất!