Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). Sao cho
15 số lẻ được in trên một dòng.
a. Hướng dẫn:
- Cho j =0.
- Cho biến I chạy từ 1 đến n.
- Nếu I chẵn ( I chia 2 dư 0) thì in ra số n và tăng j lên 1
- Nếu j chia hết cho 15 thì thực hiện xuống dòng (Dùng Writeln).
Program BTH; Uses crt; var j,i,n:word; Begin Clrscr; Write('Nhap n ='); readln(n); j:= 0; For i:=1 to n do if i mod 2 =1 then Begin Write(i,' '); j:=j + 1; if j mod 15 = 0 then Writeln; end; readln end.