Cả nhà ơi giúp mik vs! Xem giúp mik là nó sai chỗ nào mà mik nhập 6 nó ra 3 còn mik nhập 12 nó ra kq là 4, nhập 8 thì nó ra 2 ạ? Đề là tìm US ng tố lớn nhất của n ạ! Giúp mik vs!
Uses CRT;
Var i,n,j: Integer;
Begin
ClrScr;
Write ( 'Nhap so nguyen n: ' );
Readln (n);
i:=2;
While (i<=n) and (n mod i=0) do
Begin
j:=i;
i:=i+1;
End;
Write (j);
Readln;
End.
Cảm ơn mn!