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!
2 câu trả lời
BÀI LÀM
Uses CRT;
Var i,n,j: Integer;
Begin
ClrScr;
Write ( 'Nhap so nguyen n: ' );
Readln (n);
i:=n div 2;
While (i<=n) and (n mod i=0) do
Begin
j:=i;
i:=i-1;
End;
Write (j);
Readln;
End.
@TrangCute
#Beautiful
→CHÚC BẠN HỌC TỐT!←
Uses CRT;
Var i,n,j: Integer;
Begin
ClrScr;
Write( 'Nhap so nguyen n: ' );
Readln (n);
i:=2;
While (i<=n) do
Begin
while n mod i = 0 do
n:=n div i;
j:=i;
i:=i+1;
End;
Write (j);
Readln;
End.
