1. Viết chương trình tính tổng s:=1+2+…+n. (Không sử dụng lệnh lặp mà sử dụng công thức).

* Xâu dựng từ công thức Toán học :

+ Ta thấy dãng trên có : $(n-1) : 1 + 1 = n$ ( số số hạng )

Nên tổng $S=1+2+3+….+n$ được tính là :

$S = \dfrac{n.(n+1)}{2}$

* Viết chương trình :

program tinhtong;
uses crt;
var n,s : integer;
begin clrscr;
write(‘Nhap so n :’); readln(n);
s:=trunc(n*(n+1)/2);
write(‘Tong S la :’, s);
readln
end.