Question

pascal 问题

求2--100中，每个数的质因子，输出如下形式：
2=2
3=3
4=2*2
……
……
100=2*2*5*5

Answer 1

问题分析：
1、最小的质因数是2，如果n能被2整除，说明2是n的质因数。然后继续用商除以2,如果还能整除，说明n还有一个质因子2...以此类推，直到商为1。
2、如果n不能被2整除，则让2加1，继续执行步骤1。
程序如下：
var t,i,j,n,m:integer;
a:array[1..100] of integer;
begin
n：=2；
while n<=100 do
begin
j:=2;
m:=n; t:=0;
repeat
while(m mod j=0) do
begin
t:=t+1;
a[t]:=j;
m:=m div j;
end;
j:=j+1;
until m=1;
if t=0 then writeln(n,'=',n)
else
begin
write(n,'=');
for i:=1 to t-1 do
write(a[i],'*');
writeln(a[t]);
end;
end;
end.

追问

能不能不用数组