Quảng cáo
2 câu trả lời 335
program ct;
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
if n<=1 then writeln('N khong la so nguyen to') else
begin
i:=2;
while (n mod i<>0) do i:=i+1;
if i=n then writeln(n,' la so nguyen to'); else
writeln(n,'khong la so nguyen to');
end;
readln
end.
program ct;
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap n:=');readln(n);
if n<=1 then writeln('N khong la so nguyen to') else
begin
i:=2;
while (n mod i<>0) do i:=i+1;
if i=n then writeln(n,' la so nguyen to'); else
writeln(n,'khong la so nguyen to');
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 VIETJACK45584
-
Đã trả lời bởi chuyên gia
29017 -
Hỏi từ APP VIETJACK28522
-
✎YLY. Sealine౨ৎ
220 điểm
-
BI IS SAD | K12 ♡ ... ? 190 điểm
-
Minh nè:))
85 điểm
-
HỌC BÁ 8B5❤️🔥💯
85 điểm
-
$$\color{orange}{꧁ ঔ ৣ ☬ ✞ ⨳₳₪™ ⨳ ✞ ☬ ঔ ৣ ꧂}$$
75 điểm
-
đka9A1
55 điểm
-
Nguyễn Thị Quỳnh Mai
40 điểm
-
Thủy Thu 40 điểm
-
hoàng chí vỹ 30 điểm
-
nên làm gì đây?
30 điểm
-
Nguyễn Ngọc Bảo Quyênnn 25 điểm
-
ai thích sờ "chim"
25 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11953
-
4 năm trước11327
-
4 năm trước10001
-
4 năm trước10293
-
4 năm trước9728
