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

题目描述

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

输入

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

输出

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

样例输入

2 1 4
3 4 5 6

样例输出

1
30

数据范围限制

数据范围
0

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.