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).
var n,i:integer;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
if i mod 15=0 then writeln;
if i mod 2 <>0 then write(i,’ ‘);
end;
readln;
end.
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.