Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có nằm trong khoảng từ 1 đến 100 hay không, thông báo ra màn hình.
1 câu trả lời
uses crt;
var a : integer;
begin
clrscr;
write('nhap so nguyen a : ');readln(a);
if (a >= 1) and (a <= 100) then
writeln('a nam trong khoang 1 den 100')
else writeln('a khong nam trong khoang 1 den 100');
readln
end.