Câu `1`
Cú pháp lệnh $\text{For ..do}$
*For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh> ;
*For <biến đếm> := <giá trị cuối> downto <giá trị đầu> do <câu lệnh> ;
Giải thích
+ Từ khóa: $For,to,do$
+ Biến đếm được khai báo kiểu nguyên
+Với `For..do` giá trị cuối luôn lớn hơn giá trị đầu và các giá trị luôn là số nguyên.
+Câu lệnh: có thể là câu lệnh đơn hoặc câu lệnh ghép tùy theo chương trình và mục đích sử dụng
Cách thực hiện
Với `\text{For..to..do}` biến đếm chạy từ giá trị đầu và biến đếm sẽ tự động tăng thêm một đơn vị và thực hiện công việc cho đến khi bằng giá trị cuối thì dừng lại
Với `\text{For...downto..do}` biến đếm chạy từ giá trị cuối biến đếm sẽ tự động giảm thêm một đơn vị và thực hiện công việc cho đến khi bằng giá trị cuối thì dừng lại
Câu `2:`
Program Hotboy;
Uses crt;
Var n,i,: byte;
S:integer;
Begin
Clrscr;
S:=0;
Write('Nhap so n tu ban phim: '); Readln(n);
For i:=1 to n do
S:=S+i*2;
Write('Tong can tim la',S );
Readln;
End.
