Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
program Min; uses crt; var i,n:integer; begin clrscr; write('Nhap n: '); readln(n); write('Cac so le nho hon hoac bang ',n,'la :'); for i:=1 to n do if i mod 2 = 1 then write(i:4); readln end.
Program FNG; Uses crt; Var n,i: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); i:=1; While i<=n do Begin Write(i,' '); inc(i,2); End; Readln End.