a.

Biết trước: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

`@` biến đếm nhận giá trị đầu

`@` sau mỗi lần lặp biến đếm sẽ + 1 dv

`@` khi biến đếm > giá trị cuối thì dừng vòng lặp

Chưa biết trước: while <điều kiện> do <câu lệnh>;

`@` nếu điều kiện đúng thì thực hiện câu lệnh

`@` nếu điều kiện sai thì kết thúc vòng lặp

b.

uses crt;

var i,s: integer;

begin

clrscr;

for i:=1 to 50 do s:=s+i;

write(s);

readln

end.

a) 

- 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 kiển nguyên

+ For, to, do là các từ khoá

+ Giá trị đầu và cuối cùng kiểu dữ liệu với nhau

b)

uses crt;

var i, S : integer;

begin

clrscr;

S := 0;

for i := 1 to 50 do

S := S + i;

write('S = ', S);

readln

end.