Mon Touneh
Hỏi từ APP VIETJACK
Em hãy viết chương trình nhận biết 1 số tự nhiên N được nhập vào từ bàn phím có phải nguyên tố hay không
Quảng cáo
2 câu trả lời 219
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.
3 năm trước
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
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44794
-
Hỏi từ APP VIETJACK26450
Thành viên hăng hái nhất trong tuần
-
Bánh Kemᰔᩚ
450 điểm
-
Astraea
235 điểm
-
Yen Nhi
205 điểm
-
.
125 điểm
-
Trịnh Kim Chi 90 điểm
-
Hanuel
60 điểm
-
જ⁀➴ღ ɲɦư亗♡
55 điểm
-
红玫瑰✿
50 điểm
-
quynh nhu lê
40 điểm
-
Trí Phạm 35 điểm
-
Nguyễn Thủy 30 điểm
-
an dc kh?
30 điểm
-
phạm văn hiếu phạm 30 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước7559
-
3 năm trước7185
-
3 năm trước6181
-
3 năm trước5937
-
3 năm trước5985
Gửi báo cáo thành công!
