状态编号: [查看该题]
状态: Unaccepted
测评机: Virmain[1]
得分: 30分
提交日期: 2008-5-31 15:00:00
有效耗时: 87毫秒
测试结果1: 测试结果正确
测试结果2: 测试结果正确
测试结果3: 测试结果正确
测试结果4: 无输出|运行超时
测试结果5: 无输出|运行超时
测试结果6: 无输出|运行超时
测试结果7: 无输出|运行超时
测试结果8: 无输出|运行超时
测试结果9: 无输出|运行超时
测试结果10: 无输出|运行超时
程序代码:
program dsa;
var t,i,f:longint;
n,k:array[1..32767] of longint;
begin
read(t);
for i:=1 to t do read(n[i],k[i]);
for i:=1 to t do
begin
f:=n[i] or k[i];
if n[i]=f then write(1) else write(0);
if i<>t then writeln;
end;
end.
查看状态 Show Status
题目:[stupid]愚蠢的组合数
状态: Accepted
测评机: Xeond[6]
得分: 100分
提交日期: 2010-7-20 20:07:00
有效耗时: 6640毫秒
测试结果1: 通过本测试点|有效耗时203ms
测试结果2: 通过本测试点|有效耗时203ms
测试结果3: 通过本测试点|有效耗时203ms
测试结果4: 通过本测试点|有效耗时641ms
测试结果5: 通过本测试点|有效耗时641ms
测试结果6: 通过本测试点|有效耗时937ms
测试结果7: 通过本测试点|有效耗时937ms
测试结果8: 通过本测试点|有效耗时937ms
测试结果9: 通过本测试点|有效耗时984ms
测试结果10: 通过本测试点|有效耗时954ms
var
n,k:array[1..100000]of longint;
t,i:longint;
function c(n,k:longint):integer;
begin
if n and k=k then c:=1
else c:=0;
end;
begin
read(t);
for i:=1 to t do read(n[i],k[i]);
for i:=1 to t do writeln(c(n[i],k[i]));
end.