Câu 1.

-Cú pháp:

      while <điều kiện> do <câu lệnh>;

-Hoạt động: Câu lệnh lặp sẽ kiểm tra điều kiện, nếu đúng thì các câu lệnh sẽ được thực hiện rồi quay lại kiểm tra điều kiện, nếu sai sẽ kết thúc câu lệnh lặp.

Câu 2.

program Cau_2;

uses crt;

var i,T: integer;

Begin

         clrscr;

         for i:=15 to 25 do T:=T+i;

         write('Tong = ',T);

         readln

End.

Câu 3.

program Cau_3;

uses crt;

var n,i: integer;

Begin

         clrscr;

         write('Nhap n: '); readln(n);

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

         else

         begin

                  i:=2;

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

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

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

         end;

         readln

End.

- cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại 1 vài hành động nào đó cho đến khi 1 điều kiện nào đó được thỏa mãn