Câu 1:
program cau_1;
var a: longint;
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.
Câu 2:
program cau_2;
var a: longint;
begin
write('nhap a: ');
readln(a);
if (a<>0) then write(a,' la so duong.') else write(a,' la so am.')
if a:=0 then
writeln('a la so 0. Khong phai so am va so duong');
readln;
end.
xin hay nhất nhé nhận giải bài tập