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

- Giải thích:

   + Từ khóa: for, to, do

   + Biến đếm: kiểu nguyên

   + Giá trị đầu, giá trị cuối: giá trị nguyên (giá trị đầu < giá trị cuối)

   + Câu lệnh trong vòng lặp không làm thay đổi giá trị của biến đếm

   + Số lần lặp: giá trị đầu - giá trị cuối + 1

- Hoạt động:

   + Biến điếm sẽ nhận giá trị bằng giá trị đầu

   + Sau mỗi vòng lặp, biến đếm tăng thêm một đơn vị cho đến khi bằng giá trị cuối thì kết

      thúc lệnh lặp

- Ví dụ:

       for i:= 1 to 5 do write('Tin hoc');

var i,n,so:integer;

s:longint;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(so);

s:=s+so;

end;

write('Tong la ',s);

readln;

end.

Câu 1:

var i,n:integer;

s:longint;

begin

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

for i:=1 to n do

s:=s+(i*10+2);

write('S = ',s);

readln;

end.

Câu 2:

var i,n:integer;

s:real;

begin

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

for i:=1 to n do s:=s+1/n;

write('tong la ',s:10:2);

readln;

end.

Uses crt;

var i,n: integer;   a: longint;

begin clrscr;

write('Nhap so n: '); readln(n);

a:=0;

for i:=1 to n do a:=a+i;

writeln(' Tong: ',a);

readln;

end. 

Program HOC24;

var i,j: byte;

begin

for i:=1 to 3 do

begin

for j:=1 to 7 do write('*');

writeln;

end;

readln

end.