Võ Thái An Bình

Nhập vào 1 số tự nhiên n với (0<n<=65535), phân tích số vừa nhập thành các thừa số nguyên tố, nếu số vừa nhập là số nguyên tố thì chỉ thông báo ra màn hình đây là số nguyên tố.

"mn giúp e vs, 8h 27/7 e nộp r."

Nguyên Hưng Trần
26 tháng 7 2021 lúc 18:37

Uses crt;
var i,n,uoc,j,tam:longint;
Begin
clrscr;
readln(n);uoc:=0;tam:=0;
for i:= 1 to n do if n mod i = 0 then inc(uoc);
if uoc = 2 then write(n,' la so nguyen to')
 else for i:= 2 to n do if n mod i = 0 then
   begin
   tam:=0;
   for j:= 1 to i do if i mod j = 0 then inc(tam);
   if tam = 2 then write(i,'  ');
   end;
readln;
end.

Có chỗ nào sai thì bảo mình

Bình luận (1)

Các câu hỏi tương tự
Phan Thu
Xem chi tiết
Do Ngoc Thao My
Xem chi tiết
nam bảo
Xem chi tiết
Chi Khánh
Xem chi tiết
trần hoàng
Xem chi tiết
Bùi Thị Châu Loan
Xem chi tiết
Dung
Xem chi tiết
Bùi Ngọc Khánh Huyền
Xem chi tiết
Dân Phạm Văn
Xem chi tiết