Bài thực hành 6. Sử dụng lệnh lặp While…..Do

Bài thực hành 6
SỬ DỤNG LỆNH LẶP WHILE...DO
Bài 2:
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 phai la so nguyen to !`);
end;
readln
end.
Lệnh khai báo thư viện
Lệnh khai báo biến
Lệnh xóa màn hình
Lệnh in thông tin ra màn hình
Câu lệnh lặp với số lần chưa biết trước
Câu lệnh điều khiển dạng đủ
Lệnh đọc vào
Lệnh tạm dừng chương trình
Hướng dẫn về nhà
Xem lại cấu trúc của lệnh lặp với số lần chưa biết trước
Nắm các đặc trưng của lệnh lặp với số lần chưa biết trước
Gõ lại các chương trình trong sách giáo khoa để hiểu rõ hơn cấu trúc và tránh các lỗi thường gặp
Xem lại các chương trình các ví dụ trong sách giáo khoa để tiết sau làm bài tập