var S,i,n:integer; begin write('Nhap n:');readln(n); S:=0; for i:=1 to n-1 do if i mod 2<>0 then S:=S+i; write(S); readln; end.
Chúc bạn học tốt!
166 Điểm
120 Điểm
80 Điểm