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âu 9: 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.
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.