8.9 17倍times17 2492

题目

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

题解

1.直接模拟
2.17的二进制是10001，可以把n*10000再加上它本身，就转换成了高精加
时间复杂度O(n)

代码

var  a,b:array[1..1100]of longint;  i,j:longint;  s:ansistring;procedure add;var  i:longint;begin  for i:=1 to length(s)+4 do    begin      a[i]:=a[i]+b[i];      a[i+1]:=a[i+1]+a[i] div 2;      a[i]:=a[i] mod 2;    end;end;begin  assign(input,'times17.in');  assign(output,'times17.out');  reset(input);rewrite(output);  readln(s);  for i:=1 to length(s) do    begin      a[length(s)-i+5]:=ord(s[i])-48;      b[length(s)-i+1]:=ord(s[i])-48;    end;  add;  i:=1100;  while (a[i]=0)and(i>1) do dec(i);  for j:=i downto 1 do    write(a[j]);  close(input);close(output);end.