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 đó

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

for i:= 1 to n do
begin
  
end;

*Note: i là biến đếm đc khởi tạo với giá trị bắt đầu là 1. Vòng lặp sẽ thực hiện các câu lệnh bên trong begin và end với giá trị của i tăng lên 1 mỗi lần lặp cho đến khi i đạt giá trị n. Sau đó, các câu lệnh bên ngoài vòng lặp sẽ được thực hiện tiếp.

VD: nếu ta muốn in ra một dãy số từ 1 đến 10, ta có thể sử dụng câu lệnh lặp với số lần biết trước như sau:

for i:= 1 to 10 do
begin
  writeln(i);
end;

kết quả sẽ ra từ 1 đến 10

Cú pháp của câu lệnh điều kiện:

if <điều kiện> do <câu lệnh 1>

else <câu lệnh 2>;

Cú pháp của câu lệnh lặp với số lần chưa biết trước:

While <điều kiện> do 

<câu lệnh>;

Cú pháp của câu lệnh lặp với số lần biết trước:

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

P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:

Câu 2: 

uses crt;

var n,i:integer;

begin

clrscr;

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

for i:=1 to n do 

  if n mod i=0 then write(i:4);

readln;

end.

Câu 3: 

uses crt;

var n,i,dem:integer;

begin

clrscr;

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

dem:=0;

for i:=1 to n do 

  if n mod i=0 then dem:=dem+1;

writeln('So uoc cua ',n,' la: ',dem);

readln;

end.

Câu 4: 

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if n mod i=0 then t:=t+i;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.

Câu 5: 

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=1;

for i:=1 to n do 

  if n mod i=0 then s:=s*i;

writeln('Tich cac uoc cua ',n,' la: ',s:4:2);

readln;

end.

Câu 6: 

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);

readln;

end.

Câu 8: 

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

kt:=0;

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

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

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

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

readln;

end.

Bước 1: Nhập n và nhập dãy số

Bước 2: tb←0; i←1;

Bước 3: tb←tb+x[i];

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3 và bước 4

Bước 6: Xuất tb/n;

Bước 7: Kết thúc 

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

Qúa trình thực hiện: Vòng lặp thực hiện các câu lệnh khi điều kiện của vòng lặp là điều kiện đúng, và dừng lại khi điều kiện vòng lặp là điều kiện sai