var n,i:integer;S:longint; begin readln(n); S:=0; i:=1; while i<=n do begin S:=S+i; i:=i+2; end; write(S); readln; end. Chúc bạn học tốt _nguyendavit123_ </pre>
166 Điểm
120 Điểm
80 Điểm