Hãy lập trình giải bài toán sau Yêu cầu: Nhập vào số nguyên dường n,n, (n \leq 1000000)(n≤1000000). Tính tổng các số nguyên dương chẵn trong phạm vị từ 11 đến nn.
1 câu trả lời
Các số nguyên dương từ 1 đến n ≤ 1000000 mình sẽ dùng vòng lặp chia từng số. Nếu chia cho 2 không có dư thì là số chẵn và cộng các số đó lại
nên chương trình là
Program TinhTong;
var n, i, tong: longint;
BEGIN
Write('Nhap n: '); Readln(n);
tong := 0;
For i := 1 to n do if i mod 2 = 0 then tong:= tong + i;
Write('Tong = ', tong);
Readln;
END.
