Câu 1 :
- Cú pháp : For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;
- Trong đó :
+ Biến đếm thường là biến nguyên
+ Giá trị đầu, giá trị cuối phải cùng kiểu dữ liệu với biến đếm
+ Giá trị đầu ≤ Giá trị cuối
+ For, to, do là các từ khoá
+ Câu lệnh có thể là câu lệnh đơn hoặc ghép
Câu 2 :
- Dùng For .. do
uses crt;
var i, S, N : integer;
begin
clrscr;
S := 0;
write('Nhap so N = '); readln(N);
for i := 1 to N do S := S + i;
write('S = ', S);
readln
end.
- Dùng While .. do
uses crt;
var i, S, N : integer;
begin
clrscr;
i := 1; S := 0;
write('Nhap so N = '); readln(N);
while i <= N do
begin S := S + i;
i := i + 1; end;
write('S = ', S);
readln
end.
