Messeƞger Ƭhôngßáo's Profile

program tinh_tong;
var i,N,S:integer; 
begin 
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 la: ,S); readln;                                            

END. 

giúp e bài 2c với