讨论 / 求pascal解
842439848 2015-12-09 22:09:45
点我顶贴 收藏 删除
var

i,j,n,t,k:longint;

ans:array[0..100000] of longint;

begin

readln(t);

for i:=1 to t do

begin

readln(n,k);

if n and k=k then ans[i]:=1;

end;

for i:=1 to t do

writeln(ans[i]);

end.

查看更多回复
提交回复