比赛代码 - COGS

比赛	20101116	评测结果	AAAAAAAAAA
题目名称	长路上的灯	最终得分	100
用户昵称	belong.zmx	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2010-11-16 10:39:39

显示代码纯文本

program lifht1(input,output);
var
 a:double;
 t:longint;
 n,i,ans,j:longint;

begin
 assign(input,'light.in');
 reset(input);
 assign(output,'light.out');
 rewrite(output);

 ans:=0;
 readln(n);
 for i:=1 to n do
 begin
  readln(a,t);
  for j:=1 to t do
  ans:=ans xor trunc(a*j);
 end;

 writeln(ans);
 close(input);
 close(output);
end.