2.
#include "iostream.h" 
int main() 
{ 
long n; 
cout << endl << "Nhap N: "; 
cin >> n; 
cout << "Tong cac so chan tu 1 den " << n << " la " << n/2*(n/2+1); 
return 0; 
} 

3.
Program Tinh_tong_so_le;
Uses CRT;
Var i,n,S:integer;
sl:boolean;
Begin
Clrscr;
Write('Nhap so n:');Readln(n);
sl:=True;
For i:=1 to n do
Begin
If sl=True then S:=S+i;
sl:= not True;
End;
Writeln('Tong cua n so le la:', S);
Readln;
End.

4.
Ta có 10 vòng lặp từ i = 1 tới i = 10
Ta có tổng cấp số cộng có công bội d = 2
i = 1 ta có T = 2
i = 2 ta có T = 4
i = 3 ta có T = 6
i = 4 ta có T = 8
i = 5 ta có T = 10
i = 6 ta có T = 12
i = 7 ta có T = 14
i = 8 ta có T = 16
i = 9 ta có T = 18
i = 10 ta có T = 20
Vậy sau khi thực hiện vòng lặp T = 20

5.
Đoạn chương trình trên có 8 vòng lặp mà mỗi vòng S: = S +i
Lần 1: i = 0 => S = 1;
Lần 2: i = 1 => S = 1 + 1 = 2;
Lần 3: i = 2 => S = 2+ 2 = 4;
Lần 4: i = 3 => S = 4 + 3 = 7;
Lần 5: i = 4 => S = 7 + 4 = 11;
Lần 6: i = 5 => S = 11 + 5 = 16;
Lần 7: i = 6 => S = 16 + 6 = 22;
Lần 8: i = 7 => S = 22 + 7 = 29;
Vậy sau khi thực hiện vòng lặp S = 29

2.
Cho vòng lặp với 1 biến i chạy từ 1 đến n 
em nào thỏa điều kiện chẵn ( mod 2=0 ) thì cho em ấy vào tổng 
Với tổng mới= tổng cũ + em đó 
----------------- 
uses crt; 
var i,n,s:integer; 
begin 
clrscr; 
writeln(' Nhập n : ' );Readln(n); 
S:=0; 
For i:=1 to n do 
begin 
if (i mod 2) = 0 then s:=s+i; 
end; 
Writeln('Tổng S: ,S);readln; 
END. 

program Tinhchan;
uses crt;
var i,n: longint; s: int64;
begin
 clrscr; readln(n);
  s:=0;
 for i:=2 to n do if odd(i)=False then s:=s+i;
 writeln(s:0:0); readln
end.