Tìm kiếm:

e viết = pascal :)) chú ý là bác muốn nhập 5 ngàn thì nhập 5 thôi, ko phải 5000

//begin of code
var n, i, j, k: longint;

begin
readln(n); //doc so tien
for i:=0 to (n div 5) do begin...

Xét một tam giác đều, trong đó các đường thẳng kẻ từ mỗi đỉnh xuống trung điểm cạnh đối diện, chẳng hạng như tam giác kích thước 1 trong hình ở dưới. Có thể thấy có 16 tam giác trong tam gáic này....