Bài 1:

Cú pháp for...do tiến:

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

Cú pháp for...do lùi:

             For <biến đếm> := <giá trị cuối> downto <giá trị đầu> do <câu lệnh> ;

Bài 2:

Đoạn chương trình 1: Câu lệnh Writeln in ra màn hình: giá trị của j là 7

                                                                                        giá trị của k là 10

Đoạn chương trình 2: Câu lệnh Writeln in ra màn hình: giá trị của j là 7

                                                                                        giá trị của k là 28

Bài 3:

Trong hình

câu 1
+ Cú pháp lệnh lặp For - do dạng lùi:
For < biến đếm> := < Giá trị cuối > downto < Giá trị đầu > do < câu lệnh >;

+ Cú pháp lệnh lặp For – do dạng tiến:
For < biến đếm > := < Giá trị đầu > to < Giá trị cuối > do < câu lệnh >;

câu 2

đoạn chương trình 1

j=3,k=3

đoạn chương trình 2

j=7,k=28

câu 3

Program Tinh_Tong;

uses crt; 

var i,Tong:integer;

Begin

slrscr;

Tong:=0;

for i:=1 do 20 do 

Tong:=Tong+i;

writeln('Tong cac gia tri là:',tong);

readln

End