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: 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.