| 比赛 |
20091023练习题 |
评测结果 |
WWWAW |
| 题目名称 |
SERNET模拟 |
最终得分 |
20 |
| 用户昵称 |
.Xmz |
运行时间 |
0.000 s |
| 代码语言 |
Pascal |
内存使用 |
0.00 MiB |
| 提交时间 |
2009-10-26 10:58:02 |
显示代码纯文本
program xmz;
type
bb=record
s,q,z:longint;
t:longint;
end;
var
y,z:array[1..100,1..100]of longint;
g:array[1..100]of longint;
bao:array[1..10000]of bb;
d:array[1..100,1..100]of longint;
yy:array[1..100,1..100]of boolean;
x:array[1..100]of integer;
aa,a,n,t1,t2,bn,t,maxx,s,b:longint;
f1,f2:text;
begin
assign(f1,'sernet.in');assign(f2,'sernet.out');
reset(f1);rewrite(f2);
write(f2,0);
close(f1);close(f2);
end.