Question

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

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