Câu `2`:

Cú pháp:

* 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>;

Ví dụ chương trình: in dãy số từ `1` đến n (n nhập từ bàn phím)

var n,i:longint;

begin

read(n);

for i:=1 to n do writeln(i);

readln

end.

Câu `3:` Chương trình:

var j,k,i:longint;

j:=2;

k:=3;

for i:=1 to 5 do

begin

j:=j+1;

k:=k+j;

end;

writeln(k);

readln

end.

Kết quả in ra k: k=28

`2)`

`\text{Cú pháp :}`
        `-\text{Lặp tiến : }`
  `\text{For <biến đếm > := <giá trị đầu > to < giá trị cuối > do < câu lệnh > ;}`
          `-\text{Lặp lùi : }`
 `\text{For<biến đếm>:= < giá trị cuối> dowto <giá trị đầu  > do < câu lệnh > ;}`

`\text{Ví dụ :}`

`\text{In ra màn hình các số chẵn từ }1->n`

$\textit{Program khoadang09 ;}$

$\textit{Uses crt ;}$

$\textit{var n, i : integer ;}$

$\textit{begin}$

$\textit{clrscr ;}$

$\textit{write('n=') ;}$

$\textit{readln(n) ;}$

$\textit{for i:=1 to n do}$

$\textit{if i mod 2= 0 }$

$\textit{then write(i:2);}$

$\textit{readln}$

$\textit{end.}$

$\text{}$

`3)`

$\text{Thuật toán mô phỏng: }$

`i=2 ; k=3`

`i=1`

`j=j+1=2+1=3`

`k=k+j=3+3=6`

`->j=3 ; k=6`

`i=2`

`j=j+1=3+1=4`

`k=k+j=6+4=10`

`->j=4 ; k=10`

`i=3`

`j=j+1=4+1=5`

`k=k+j=10+5=15`

`->j=5 ; k=15`

`i=4`

`j=j+1=5+1=6`

`k=k+j=15+6=21`

`->j=6 ; k=21`

`i=5`

`j=j+1=6+1=7`

`k=k+j=21+7=28`

`->j=7 ; k=28`

`i=6`

`=>`$\textit{Dừng chương trình, do i lúc này bằng 6}$

`=>`$\textit{K=28}$

$\text{Chương trình :}$

$\textit{Program khoadang09 ;}$

$\textit{Uses crt;}$

$\textit{var i,j,k:integer;}$

$\textit{begin}$

$\textit{clrscr;}$

$\textit{j:=2;k:=3;}$

$\textit{for i:=1 to 5 do}$

$\textit{begin}$

$\textit{j:=j+1;}$

$\textit{k:=k+j;}$

$\textit{end ;}$

$\textit{writeln('k=',k);}$

$\textit{readln}$

$\textit{end.}$