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.