2017.8.9测试 题一 17倍

17倍（Times17）

 

题目：

    在了解做软件开发可能赚很多的钱之后，农夫约翰也开了一家小的软件公司为客户写程序。约翰的第一个任务对他来说看起来相当简单：输入一个数N，然后输出17*N的值。但是现在，客户又变更了一个条件，输入的N是一个二进制数，输出的值也要是二进制表示的。

问题描述：

现在请帮助约翰完成这个任务。

输入格式：

一个二进制表示的数N。

输出格式：

二进制表示的17N。

输入输出样例：

times17.in

10110111

times17.out

110000100111

 

数据范围：

 N的位数不超过1000位。

说明：

 10110111相当于十进制的183，于是183*17=3111，二进制形式是110000100111 。

题解：不要被数据范围吓到。本题的17倍可以分为(16+1)倍,也就是将16和1用乘法分配律来乘，再用高精度加法加起来就行了。(至于为什么要用16倍，那是因为16转二进制就是10000，在原数后面＋4个0就行了( っ·_ゝ· )っ)

var a,b,c:array[0..100000]of longint; s,ss:ansistring; len1,len2,len3,i,t,g:longint;begin read(s); len1:=length(s); for i:=1 to len1 do val(s[i],a[len1-i+1]);//高精度~ ss:=s+'0000';//乘了16的数(乘1不用变) len2:=len1+4; for i:=1 to len2 do val(ss[i],b[len2-i+1]); i:=1; while (i<=len1) or (i<=len2) or (i<=len3)do  begin   if len3<i then len3:=i;   t:=a[i]+b[i]+g;   c[i]:=t mod 2;//逢二进一哦   g:=t div 2;   if g>=1 then inc(len3);   inc(i);  end; for i:=len3 downto 1 do write(c[i]);end.