Câu 11: Viết chương trình thực hiên nhập hai số nguyên x và y ra màn hình. Kết quả so sánh hai số đó ?
Câu 12: Viết chương trình nhập 1 số nguyên a. Kiểm tra số đó có phải là số dương hay không ?
Câu 13: Viết chương trình nhập 1 số nguyên a. Kiểm tra số đó có phải là số âm hay không ?
Câu 11:
Program NN;
Uses crt;
Var x,y: longint;
Begin
Clrscr;
Write(‘Nhap x, y: ‘); Readln(x,y);
If x>y then Write(x,’ > ‘,y)
Else If y>x then Write(y,’ > ‘,x)
Else Write(‘Bang nhau’);
Readln
End.
Câu 12:
Program NN;
Uses crt;
Var a: longint;
Begin
Clrscr;
Write(‘Nhap a: ‘); Readln(a);
If a>0 then Write(‘YES’)
Else Write(‘NO’);
Readln
End.
Câu 13:
Program NN;
Uses crt;
Var a: longint;
Begin
Clrscr;
Write(‘Nhap a: ‘); Readln(a);
If a<0 then Write(‘YES’)
Else Write(‘NO’);
Readln
End.