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的二进制是10000，1的二进制就是1，所以就是s*10000(向前移4位)+s就行啦

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';//s*10000后的数 len2:=len1+4;//向前移了4位，所以长度+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.