Viết chương trình in ra màng hình các số lẽ từ 1 cho đến n,cấm coppy mạng.
2 câu trả lời
Uses Crt;
Var i,N:integer;
Begin
Clrscr;
Write('Cac so le tu 1 den n la:');
For i:=1 to n do
If i mod 2 <>0 then writeln(i:5);
Readln;
End.