Question

uses crt;

var n, i:integer;

begin

clrscr;

write('Nhap vao mot so nguyen:')

readln(n);

if n<=1 then writeln(n,' khong la so nguyen to,)

else

begin

i:=2;

while (n mod i<>0) do i:=i+1;

if i=n then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to,);

end;

readln

end.

a) Nêu công dụng của từng câu lệnh trong chương trình theo thứ tự từ 1 đến 16

b) Theo em, khi nhập vào số 9 thì chương trình sẽ xuất thông báo gì?

c) Theo em, khi nhập vào số 131 thì chương trình sẽ xuất thông báo gì?

Answer 1

a)

uses crt; ----> Khai báo thư viện có tên crt

var n, i:integer; ----> Khai báo biến n và biến i thuộc kiểu dữ liệu số nguyên (integer)

begin ----> Bắt đầu chương trình chính

clrscr; ----> Xóa toàn bộ màn hình

write('Nhap vao mot so nguyen:'); ----> In ra màn hình : Nhap vao mot so nguyen

readln(n); ----> Nhập giá trị cho biến n

if n<=1 then writeln(n,' khong la so nguyen to')

----> Kiểm tra điều kiện n<=1 . Nếu đúng in ra màn hình : (biến n được nhập) khong la so nguyen to

else ----> Điều kiện n<=1 là sai thì rẽ nhánh (ngược lại)

begin ----> Khởi tạo tạo khối chương trình phụ

i:=2; ----> Gán biến i có giá trị bằng 2

while (n mod i<>0) do i:=i+1; ----> Chừng nào n mod i còn khác 0 thì tăng biến i lên 1 đơn vị

if i=n then writeln(n,' la so nguyen to') ----> Kiểm tra điều kiện, nếu i=n thì in ra màn hình : (biến n được nhập từ bàn phím) la so nguyen to

else writeln(n,' khong la so nguyen to,); ----> Ngược lại (điều kiện là sai n<>i ) thì in ra màn hình : (biến n được nhập từ bàn phím) khong la so nguyen to

end; ----> Kết thúc khối chương trình phụ

readln ----> Đọc ra màn hình

end. ----> Kết thúc chương trình chính

b) Khi nhập vào số 9 thì chương trình sẽ xuất thông báo : 9 khong la so nguyen to

c) Khi nhập vào số 131 thì chương trình sẽ xuất thông báo : 131 la so nguyen to