模拟题6

题目描述

问题描述

　　求出区间[a,b]中所有整数的质因数分解。

输入格式

　　输入两个整数a，b。

输出格式

　　每行输出一个数的分解，形如k=a1*a2*a3...(a1<=a2<=a3...，k也是从小到大的)(具体可看样例)

样例输入

3 10

样例输出

3=3
4=2*2
5=5
6=2*3
7=7
8=2*2*2
9=3*3
10=2*5

提示

　　先筛出所有素数，然后再分解。

数据规模和约定

　　2<=a<=b<=10000

 

 

program sky;
var
l,r,i,tot,j,k:longint;
tp:longint;
a:array[0..10000] of longint;
b,c:array[0..10000,0..1000] of longint;
v:array[0..10000] of boolean;
begin
readln(l,r);
for i:=2 to 10000 do
if not v[i] then
begin
inc(tot); a[tot]:=i; j:=2;
while i*j<=10000 do
begin
v[i*j]:=true;
inc(j);
end;
end;
for i:=l to r do
begin
tp:=i;
for j:=1 to tot do
begin
if tp=1 then break;
if tp mod a[j]<>0 then continue;
inc(b[i,0]); b[i,b[i,0]]:=a[j];
while tp mod a[j]=0 do
begin
inc(c[i,b[i,0]]);
tp:=tp div a[j];
end;
end;
end;
for i:=l to r do
begin
write(i,'=');
write(b[i,1]);
for k:=2 to c[i,1] do write('*',b[i,1]);
for j:=2 to b[i,0] do
for k:=1 to c[i,j] do
write('*',b[i,j]);
writeln;
end;
end.

不大爽的模拟题，

分解质因数打错了两个地方

b[i,b[i,0]]:=a[j]而非b[i,b[i,0]]:=j;

还有就是c数组第一次不用加1，即c[i,b[i,0]]:=1是不必要的

会出错，后面的过程里会加上的

输出的时候也有点小麻烦，

需要特别处理一下第一个。

skysun原创，http://www.cnblogs.com/skysun