1/ Viết chương trình nhập một số nguyên dương n từ bàn phím. Kiểm tra số vừa nhập là số chẵn hay số lẻ?
2/ Viết chương trình nhập một số nguyên dương n từ bàn phím. Kiểm tra số vừa nhập là số âm hay số dương?
3/ Viết chương trình nhập 2 số nguyên a, b từ bàn phím. Sau đó hiển thị số lớn nhất trong hai số vừa nhập.
4/ Bài thực hành 6/ 52, 53 ( bài thực hành sau bài 6: câu lệnh điều kiện)
1:
uses crt;
var n:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>0 then
begin
if n mod 2=0 then writeln(n,' la so chan')
else writeln(n,' la so le');
end
else writeln('vui long nhap lai');
readln;
end.
2:
uses crt;
var n:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>0 then writeln(n,' la so duong')
else if n<0 then writeln(n,' la so am')
else writeln(n,' khong la so duong cung khong la so am');
readln;
end.
3:
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' la so lon nhat');
if b>a then writeln(b,' la so lon nhat');
if a=b then writeln('khong co so lon nhat');
readln;
end.
4: bạn muốn hỏi bài nào? trang mấy? Với lại trang 52, 53 là bài thực hành số 4 nhé bạn
