Gia Linh Hoàng

Chuyển ct sau từ while...do sang for...do :
Begin
Clrscr;
Write ('nhap N='); readln (n);<br />S:=0; i:=0;<br />While i<=N do begin ifi mod 2<>0 then s:=s+i; i:= i+1 end:  <br />Writeln ('tong cua cac so tu nhien khong chia het cho 2 khong vượt quá so ',n,' cho truoc la:',s);
Readln
end.