Đây là một dạng toán thường hay gặp, bạn sẽ gặp 2 dang dưới đây trong các bài liên quan đến vòng lặp trong pascal. Sau này khi học thêm các hàm hay lệnh khác thì dãy số yêu cầu tính sẽ theo một quy tắc khó hơn.
Tính tổng của n 1+2+3+..+n số, n nhập từ bàn phím
1
2
3
4
5
6
7
8
9
10
11
12
Program viet_chuong_trinh_tong;
uses crt;
var n,i,s:integer;
Begin
Program0Program1
Program0Program3Program4Program5Program6
Program0Program8
Program0viet_chuong_trinh_tong;0viet_chuong_trinh_tong;1;viet_chuong_trinh_tong;3
Program0viet_chuong_trinh_tong;5 viet_chuong_trinh_tong;6viet_chuong_trinh_tong;7 viet_chuong_trinh_tong;8 viet_chuong_trinh_tong;9uses0 uses1uses2
Program0uses4Program4uses6uses7
uses8
uses9crt;0
Tính tổng của n 1+3+5+..+n số, n nhập từ bàn phím
Program viet_chuong_trinh_tong;
uses crt;
var n,i,s:integer;
Begin
Clrscr;
write['nhap so :'];
readln[n];
i:=1;
S:=0; {tong ban dau = 0}
While i