2066. 【2016.10.5NOIP普及模拟】kk的作业

又是周四了，kk又是很早的到了教室，开始一天的学习，不过，他的概率论作业还没有写完。由于有一道题的数字比较大，上星期周四kk在做作业的时候就直接写了个式子，没有算出来。当然，kk是不知道这个数字到底是多大的。现在，就是你帮助kk的时候了。kk有个好习惯，所有答案都化成一个分数，分母和分子都是许多个整数的积，现在，你需要告诉kk，这个分数化成既约分数的结果（既约分数就是分子分母最大公约数为1的分数）。

输入一共两行，第一行第一个数为分子上的整数个数n1，之后有n1个整数，第二行第一个数为分母上的整数个数n2，之后n2个整数，答案分母不会为0，每两个整数之间有一个空格隔开。

输出共两行，第一行为既约分数的分子，第二行为分母，输出精确值。注意，如果分数值为0，那么输出分子为0，分母为1。

var
a:array[2..1000] of longint;
n,i,j,t:longint;
f:array[1..2,0..5000] of longint;
procedure main;
begin
read(n);
for i:=1 to n do
begin
read(t);j:=2;
if t=0 then begin writeln(0);writeln(1);halt;end;
while(t>1)and(j<=1000)do
begin
while t mod j=0 do
begin inc(a[j]);t:=t div j;end;
inc(j);
end;
end;
read(n);
for i:=1 to n do
begin
read(t);j:=2;
while(t>1)and(j<=1000)do
begin
while t mod j=0 do
begin dec(a[j]);t:=t div j;end;
inc(j);
end;
end;
end;
procedure cf(x,y:longint);
var
i,t:longint;
begin
t:=0;
for i:=1 to f[x,0] do
begin
f[x,i]:=f[x,i]*y+t;
t:=f[x,i] div 10;
f[x,i]:=f[x,i] mod 10;
end;
while t>0 do
begin
inc(f[x,0]);
f[x,f[x,0]]:=t mod 10;
t:=t div 10;
end;
end;
begin
assign(input,'count.in'); reset(input);
assign(output,'count.out'); rewrite(output);
main;
f[1,0]:=1;f[2,0]:=1;f[1,1]:=1;f[2,1]:=1;
for i:=2 to 1000 do
if a[i]>0 then
for j:=1 to a[i] do cf(1,i)
else
for j:=1 to abs(a[i]) do cf(2,i);
for i:=f[1,0] downto 2 do
write(f[1,i]);
writeln(f[1,1]);
for i:=f[2,0] downto 1 do
write(f[2,i]);
close(input);close(output);
end.