cú pháp: lặp với số lần chưa bt trưóc
While < điều kiện > do < câu lệnh>
trong đó: điều kiện thươngf là phép so sánh, câu lệnh có thể là câu lệnh đơn giản hay câul ghép
đc thực hiện như sau
B1 kiểm tra điều kiện
B2 Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp sẽ kết thúc, nếu điều kiện đúng, thực hiện câu lệnh và quay lại B1
VD: Ctrinh nhận bt số tự nhiên N đc nhập từ bàn phím có phải số nguyên tố hay ko?
Program VD;
uses Crt;
Var N, i : integer; S longint;
begin
Clrscr;
Writeln('nhap so N = ');
readln(N);
S:=0
While i<N do
begin
S:= S+i;
i:=i+1;
end;
writeln(S)
readln;
end.
