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.
Quảng cáo
3 câu trả lời 3566
Program bai1;
uses crt;
var dem,n,i: integer;
begin
clrscr;
write('nhap 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.
Program bai1;
uses crt;
var dem,n,i: integer;
begin
clrscr;
write('nhap 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;
Program bai1;
uses crt;
var dem,n,i: integer;
begin
clrscr;
write('nhap 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;
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45490
-
Hỏi từ APP VIETJACK28376
-
politee
535 điểm
-
uk
345 điểm
-
`color{lightpink}text{bbao}`
210 điểm
-
giỡn quài ní, `color{white}text{đéo}` vui đâu
185 điểm
-
kq nguyn~
160 điểm
-
`color{ pink}text{Edison Domino}`
125 điểm
-
Lê Quyết 115 điểm
-
huh
105 điểm
-
★꧁☁︎જ⁀➴✞༺S͜͡øN͜͡G͜͡ ༒︎ N͜͡G͜͡ư༻✞જ⁀➴☁︎꧂★
85 điểm
-
doacghcmai214
85 điểm
-
lê đức thiên phước
80 điểm
-
$\color{#FA8072}{con chuống gian🥀 =P}$
80 điểm
-
Calculus1013
70 điểm
-
.....
65 điểm
-
Thuy Duong Phan 50 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước10859
-
4 năm trước10264
-
4 năm trước8930
-
4 năm trước9115
-
4 năm trước8668
