BT: viết chương trình tính tổng của 5 số tự nhiên đầu tiên.

Var i, tong: integer;

Begin

Tong:=0;

For i: = 1 to 5 do

Tong:= tong + i;

Write(‘tong=’,tong);

Readln;

End.

è Bài tập vận dụng:

Bài 1: Các câu lệnh sau đây đúng hay sai?. Hãy chỉ ra chỗ sai nếu có.

a.        For i:=1 to 10; do x:=x+1;

b.        For i:=10 to 1 do x:=x+1;

c.         For i:=1 to 10; do x:=x+1;

d.        For i:=1 to 10 for j:=1to 10 do x:=x+1;

Bài 2: Viết chương trình tính tích của 100 số tự nhiên đầu tiên.

Bài 3: Viết chương trình tính tổng nghịch đảo của n số tự nhiên đầu tiên. (Bài này tương tự ví dụ 5 sgk nhưng nghịch đảo).