Câu 1: viết chương trình nhập vào 1 số nguyên và kiểm tra xem số vừa nhập là số âm hay số dương Câu2 : giống đề trên nhưng là số Chẵn hay số Lẻ Mong mọi người giúp em

2 câu trả lời

câu 1 

1: uses crt;
var n:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then writeln(n,' la so duong');
if n<0 then writeln(n,' la so am');
readln;
end.

câu 2 

var a:integer;

Begin

writeln('nhap a'); readln(a);

if a mod 2=0 then write ('so chan') else write ('so le');

readln

end.

CHO mình 5 sao và trả lời hay nhất nha

Câu 1

Program Hotboy ;

Uses crt;

Var n: integer ;

Begin

Clrscr ;

Write('nhap  n); readln(n);

If n> 0 then 

Write('la so duong') else write('la so am');

Readln

End.

Câu $2$

Program Hotboy ;

Uses crt;

Var n: integer ;

Begin

Clrscr ;

Write('nhap n); readln(n);

If n mod 2 = 0 then 

Write('la so chan') else write('la so le');

Readln

End.