bài 1: Nhập vào một số nguyên, xác định số đó là dương, bằng 0 hay là số âm. bài 2: Nhập vào từ bàn phím một số tự nhiên rồi viết chương trình in ra màn hình thông báo số đó là số chẵn hay hay số lẻ ?

Bài 1:

Program BTT;
Uses crt;
Var a: longint;
Begin
        Clrscr;
        Write('Nhap mot so nguyen: '); Readln(a);
        If a<0 then Write(a,' la so am')
        Else If a>0 then Write(a,' la so duong')
        Else Write(a,' bang 0');
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var a: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If a mod 2 = 0 then Write(a,' la so chan')
        Else Write(a,' la so le');
        Readln
End.

1.

uses crt;

var n:byte;

begin

write('nhap n: ');readln(n);

if n>0 then write('n la so duong')

else if n<0 then write('n la so am')

else write('n bang 0');

readln

end.

2.

uses crt;

var n:byte;

begin

write('nhap n: ');readln(n);

if n mod 2=0 then write('n la so chan')

else write('n la so le');

readln

end.