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.
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.
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 đỡ!
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.
Được sửa bởi pbd255 lúc 14:08 ngày 24-03-2009
Bookmarks