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ẻ in trên một dòng
2 câu trả lời
bài làm
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.
uses crt;
var i, n, d : integer;
begin
clrscr;
d := 0;
write('nhap so n : ');readln(n);
for i := 1 to n do
if i mod 2 <> 0 then
begin
write(i:3);
d := d + 1;
if d = 15 then
begin
d := 0; writeln;
end;
end;
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
