*Cú pháp: While <điều kiện> do <câu lệnh>;
*Trong đó

Cú pháp: While <điều kiện> do <câu lệnh>;

Trong đó:

While, do là các từ khóa

Điều kiện thường là một phép so sánh

Câu lệnh có thể là một câu lệnh đơn hoặc một câu lệnh ghép

cú pháp: \(for< biếnđếm>:=< giátrịđầu>to< giátrịcuối>do< câulệnh>;\)

Trong đó:\(for,to,do\) là từ khoá.

               biến đếm là biến kiểu số nguyên.

               giá trị đầu, giá trị cuối là giá trị nguyên.

Câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là một vòng lặp. Số vòng lặp là biết trước và bằng    giá trị cuối \(-\) giá trị đầu \(+\) 1

Hoạt động:

Bước 1: Kiểm tra điều kiện 

Bước 2: Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và thực hiện kết thúc câu lệnh và nếu điều kiện đúng thực hiện câu lệnh và quay lại bước 1.

Câu lệnh điều kiện:

Dạng thiếu:

If < điều kiện > then < câu lệnh >;

Dạng đầy đủ:

If < điều kiện > then < câu lệnh 1 > else < câu lệnh 2 >;

Lệnh lặp:

Biết trước:

For< Biến đếm > := < Giá trị đầu > to< Giá trị cuối > do < Câu lệnh >;

Chưa biết trước:

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

Công thức đọc tên là gì mình ko hiểu @@

Câu 4 đưa ra hình điểm của từ người hs là sao mình ko hiểu nên mình cứ cho là in ra toàn bộ điểm từng người hs nhé, có gì bạn xem xét lại xóa khúc đó:

Bài 4 nữa nhưng muốn nhập nhiêu hs thì tùy(tối đa 100, muốn hơn nữa sữa lệnh khai báo mãng) Khiến khích nên dùng bài này vì nó tiện á:

Cú pháp: while <điều kiện> do <câu lệnh>;

TRong đó: điều kiện thường là phép so sánh

câu lệnh có thể là đơn hoặc ghép

while do là các từ khóa

Cú pháp: While <điều kiện> do <câu lệnh>;

for <biến đếm>=<giá trị đầu>to<giá trị cuối>do<câu lệnh>;

cú pháp:

For <biến đếm> :=<giá trị đầu> to <giá trị cuối> do<câu lệnh>;

Trong đó for, to, do là các từ khoá, biến đếm là kiểu biến nguyên, giá trị đầu và giá trị cuối là các giá trị nguyên.

Câu lệnh lặp sẽ thực hiện câu lệnh nhiều lần, mỗi lần là mỗi vòng lặp. Số vòng lặp là bit trc và =

Giá trị cuối-giá trị đầu +1

Câu 3: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n>1 then 

begin

kt:=0;

for i:=2 to trunc(sqrt(n)) do 

  if n mod i=0 then kt:=1;

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

else writeln(n,' la hop so');

end

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

readln;

end.