二进制除法

 二进制除法

问题描述
    二进制数n mod m的结果是多少？

输入数据
    第一行输入一个二进制数n。
    第二行输入一个二进制数m。

输出数据
    输出n mod m的结果。

输入样例
1010101010
111000

输出样例
1010

时间限制
    各测试点1秒

内存限制
    你的程序将被分配32MB的运行空间

数据规模
    n的长度（二进制数的位数）<=200 000；
    m的长度（二进制数的位数）<=20。

===========

这道题考察的是

1.高精/低精

2.进制转换

------------

一个函数:

 function binstr(value:longint;cnt:byte):string; 
将value转二进制，取后cnt个字符所成字串

===========

 

var st1,st2:ansistring; m,ans:longint; procedure init; begin assign(input,'binary.in'); assign(output,'binary.out'); reset(input); rewrite(output); end; procedure terminate; begin close(input); close(output); halt; end; procedure main; var i:longint; begin readln(st1); readln(st2); m:=0; for i:=1 to length(st2) do begin m:=m*2+ord(st2[i])-ord('0'); end; ans:=0; for i:=1 to length(st1) do begin ans:=(ans*2+ord(st1[i])-ord('0'))mod m; end; if ans=0 then writeln(0) else writeln(binstr(ans,trunc(ln(ans)/ln(2))+1)); end; begin init; main; terminate; end.