Question

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.

1. 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 dem lên 1

– Nếu dem chia hết cho 15 thì thực hiện xuống dòng (Dùng Writeln).

Answer 1

Program In_So_Le;

 

Uses crt;

var Dem,i,n: integer;

Begin

Clrscr;

Write(‘Nhap so n =’); readln(n);

Dem:= 0;

For i:=1 to n do if i mod 2 =1 then

Begin

Write(i:3,’,’);

Dem:= Dem + 1;

if Dem mod 15 = 0 then Writeln;

end;

readln

end.