Phân tích mảng ra thừa số nguyên tố.

[pbd255]

Em làm bài dựa trên bài phân tích 1 số ra thừa số nguyên tố nhưng nó xuất ra hàng loạt số 6. Làm ơn sửa giúp em.

[dongcambiz]

bạn nên cụ thể đề toán với ví dụ đi kèm và code bạn đã làm để ra toàn số 6 cho các bạn khác giúp đỡ!

[pbd255]

Ví dụ:
Nhập 1 mảng gồm các phần tử 9,8,7,6,5 thì số nào là số nguyên tố thì để yên, số nào không phải thì phân tích thành thừa số nguyên tố như 9=3*3; 8=2*2*2; 7=7; 6=2*3; 5=5
đây là bài em làm:
Program bt;
Var a:array[1..100] of integer;
i,n,j :integer;
Begin
Readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i],'=');
for i:=1 to n do
begin
Repeat
j:=2;
while a[i] mod j <> 0 do
j:=j+1;
Write(j);
a[i]:=a[i] div j;
if a[i] > 1 then write ('*');
Until a[i] = 1;
readln;
end.
ai biết sửa dùm em, nếu đúng thì xin cho em nhận xét.
Xin cảm ơn.