Nhập vào từ bàn phím số tự nhiên n (n<1000). Hãy phân tích n thành tích các thừa số nguyên tố.
Trả lời
Tổng hợp câu trả lời (1)
NguyenHieu
12:11:48 24-Nov-2021
Program Phan_tich;
var n,i: integer;
Begin
Write('Nhap so can phan tich: ');Readln(n);
i:=2;
Write('Ket qua phan tich:');
Write(n,'=');
While n>1 do
Begin
if n mod i = 0 then Begin Write(i,'.'); n:= n div i End
else i:=i+1;
End;
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?