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.

591

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 4)

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

Lời giải:

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.

Đánh giá

0

0 đánh giá