| 记录编号 |
32421 |
评测结果 |
AAAAAAAAAA |
| 题目名称 |
[USACO Oct08] 轮子的旋转 |
最终得分 |
100 |
| 用户昵称 |
 11111111 |
是否通过 |
通过 |
| 代码语言 |
Pascal |
运行时间 |
0.005 s |
| 提交时间 |
2011-11-06 19:32:12 |
内存使用 |
0.13 MiB |
显示代码纯文本
program aa;
var
a,b,c,d,e,i,j,m,n,sum,max:longint;
l:array[1..1000,1..3]of longint;
f1,f2:text;
begin
assign(f1,'rotation.in');
assign(f2,'rotation.out');
reset(f1);
rewrite(f2);
readln(f1,n);
sum:=0;
for i:=1 to n-1 do
begin
readln(f1,l[i,1],l[i,2],l[i,3]);
sum:=sum+l[i,3];
end;
if sum mod 2=1 then writeln(f2,'1') else writeln(f2,'0');
close(f1);close(f2);
end.