2.
program love; 
uses crt; 
var i,n:word; s:real; 
begin 
clrscr; 
write('Nhap n: '); 
read(n); 
s:=0; 
for i:=1 to n do s:=s+i/(i+1); 
writeln('Vay tong la ',s:4:4); 
readln 
end.

3.
Program in_diem;
Uses crt; V
ar n, i: integer; Diem: array[1..50] of real;
Begin
Clrscr;
Write(‘Nhap so luong hoc sinh N = ’); Readln(n);
Writeln(‘Nhap diem cho tung hoc sinh’);
For i := 1 to n do
Begin
Write(‘Diem HS ‘,i,’ = ‘); readln(Diem[i]);
End;
For i : = 1 to n do
Writeln(‘Diem cua HS ‘,i, ‘ = ‘,diem[i]);
Readln; End.

1.
Câu lệnh lặp với số lần biết trước có tác dụng chỉ viết 1 lệnh thay thế được cho nhiều lệnh (= số lần lặp).
* Cú pháp 1
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ừ khóa
+ <biến đếm>: phải khai báo kiểu đếm được như số nguyên hay ký tự
+ <giá trị đầu>, <giá trị cuối>: là giá trị đếm được của <biến đếm>
+ <số lần lặp> = <giá trị cuối> - <giá trị đầu> + 1 nếu là biến nguyên
<số lần lặp> = giá trị nguyên từ ký tự đầu đến ký tự cuối nếu biến đếm là kiểu ký tự
+ Nếu là câu lệnh ghép thì nằm trong cặp begin và end;
* Cú pháp 2
for <biến đếm> := <giá trị cuối> downto <giá trị cuối> do <câu lệnh> ;

Không bt