Câu 1. Nêu cú pháp câu lệnh lặp For .. do? Giải thích? Câu 2. Viết chương trình tính tổng của dãy số sau: S = 2+ 4+6+8+ ...+2n (n là số nguyên nhỏ hơn 100) mọi người làm hộ em với ạ

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.