2018.07.07【2018提高组】模拟C组

密码 (Standard IO)

题目：

在浩浩茫茫的苍穹深处，住着上帝和他的神仆们，他们闲谈着下界的凡人俗事，对人世间表现的聪明智慧，大加赞赏。今天他们正在观赏大地风光人情之际，忽然从遥远的东海之滨传来一阵欢笑声，上帝纵目望去，只见中山纪念中学内聚集了全中山市的中小学精英学生，他们要干什么呢？ 原来他们都在做一种破译密码的游戏，人们发现：将密码棒上的数字全部相乘，就是开启天庭司粮库密码锁的密码。 如：12×34×56=22848，则22848就是一组有效的密码。 “太简单了！”人们高呼起来，继续探索着。 “这不过是早期的密码系统而已。”上帝轻蔑地环顾着神仆们说道。 可是，当人们演算了123×456×789=44253432后，上帝的神色喀什不对了，要知道，44253432是一个特别的数字，这可是天庭的机密，是谁将这些机密泄露给世人的呢？ 于是，上帝搬出一张牌，对司粮库主管得墨忒耳说：“将这张牌打出去，看看他们还逞能不？” 这是天庭的其中一张王牌，但平凡得很，只不过将密码的位数增大而已，可是难就难看在看到文件：password.in中的数字后，必须在1秒内将密码输出到文件：password.out中，否则这组密码就失效了。 上帝还是仁慈的，没有将更难得牌打出来，他想把天庭的粮食恩慈人间，但他绝不会将好处给那些不动脑子的人。现在请你解开天庭司粮库密码锁的密码，帮助人们获得天庭恩赐的粮食。

输入输出：

Input

输入文件password.in的第一行只有一个正整数n,表示密码共有n个乘积因子。 第二行至第n+1行共n行，每行有一个小于1×1024的正整数。这n个数均为密码的乘积因子。

Output

输出文件password.out只有一行，该行只有一个正整数，为求得的密码值。

Sample Input

3 12 34 56

Sample Output

22848

【数据限制】 30%的数据，1≤n≤6，且输入的每个乘积因子均小于1000。 70%的数据，1≤n≤20。 100%的数据，1≤n≤100。

思路：高精度乘高精度。

var i,j,n,m:longint; s1,s2:ansistring; procedure gjd(n1,n2:ansistring); var a,b,c:array [1..50000] of longint; lena,lenb,lenc,i,j,x:longint; ss:ansistring; begin fillchar(c,sizeof(c),0); s1:=''; lena:=length(n1); lenb:=length(n2); for i:=1 to lena do a[lena-i+1]:=ord(n1[i])-48; for i:=1 to lenb do b[lenb-i+1]:=ord(n2[i])-48; for i:=1 to lena do begin x:=0; for j:=1 to lenb do begin c[i+j-1]:=a[i]*b[j]+x+c[i+j-1]; x:=c[i+j-1] div 10; c[i+j-1]:=c[i+j-1] mod 10; end; c[i+j]:=x; end; lenc:=lena+lenb; while (c[lenc]=0) and (lenc>1) do dec(lenc); for i:=lenc downto 1 do begin str(c[i],ss); s1:=s1+ss; end; end; begin readln(n); readln(s1); for i:=2 to n do begin readln(s2); gjd(s1,s2); end; writeln(s1); end.