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.
