Question

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

Answer 1

[Nguyên Hưng Trần]

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

Answer 2

[Nguyên Hưng Trần]

Có thể bỏ uoc:=0; tam:=0 ở dòng thứ 5 nha