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).
2 câu trả lời
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.
- Đề 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
