VB

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."

NT
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ự
PT
Xem chi tiết
DM
Xem chi tiết
NB
Xem chi tiết
CK
Xem chi tiết
TH
Xem chi tiết
BL
Xem chi tiết
H24
Xem chi tiết
BH
Xem chi tiết
DV
Xem chi tiết