uses crt;
var n
,i
,tong:integer;
begin clrscr;
write('nhap so nguyen n:');
readln(n); for i:=1 to n do if i mod 2<>0 then tong:=tong+i; write('tong cac so le nho hon hoac bang n la:',tong);
readln;
end. * có thể thay "if i mod 2<>0" bằng "if i mod 2=1", cách nào cũng đúng nhé bạn
xin 5 sao