Quảng cáo
2 câu trả lời 520
uses crt;
var i, j, N, d : integer;
begin
clrscr;
write('Nhap so N = '); readln(N);
d := 0;
write('Cac so nguyen to 2 - N : ');
for i := 2 to N do begin
for j := 2 to i - 1 do
if i mod j = 0 then d := 1;
if d = 0 then write(i,' ') else d := 0; end;
readln
end.
uses crt;
var i, j, N, d : integer;
begin
clrscr;
write('Nhap so N = '); readln(N);
d := 0;
write('Cac so nguyen to 2 - N : ');
for i := 2 to N do begin
for j := 2 to i - 1 do
if i mod j = 0 then d := 1;
if d = 0 then write(i,' ') else d := 0; end;
readln
end.
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 VIETJACK45520
-
Hỏi từ APP VIETJACK28430
-
MÈO RBX
620 điểm
-
Đang rặn.
425 điểm
-
bii bá khí 🥵
310 điểm
-
Nói lắm thế
285 điểm
-
Ctrl+C Ctrl+V
240 điểm
-
DẠI LÊ 230 điểm
-
Chán đời.
225 điểm
-
𝑲𝒊𝒕𝒕𝒚
215 điểm
-
Tôi rất mê cờ vua 110 điểm
-
kim trieu le thi 105 điểm
-
Thanhh Ngocc
105 điểm
-
phước huynh 95 điểm
-
ishi
95 điểm
-
buon ia.
90 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11318
-
4 năm trước10727
-
4 năm trước9386
-
4 năm trước9585
-
4 năm trước9136
