var
n,m,i,j,ans,t,num:longint;
a,flag:array[0..10001,0..101] of longint;
begin
readln(n,m);
for i:=1 to n do
for j:=0 to m-1 do
readln(flag[i,j],a[i,j]);
readln(t);
for i:=1 to n do
begin
ans:=(ans+a[i,t]) mod 20123;
num:=0;
for j:=0 to m-1 do
if flag[i,j]=1 then
inc(num);
if a[i,t]>num then
a[i,t]:=a[i,t] mod num;
if a[i,t]=0 then
a[i,t]:=num;
num:=t;
for j:=0 to m-1 do
begin
if flag[i,num]=1 then
dec(a[i,t]);
if a[i,t]=0 then break;
inc(num);
if num>m-1 then
num:=0;
end;
t:=num;
end;
writeln(ans);
end.
其次。。你需要开O2
第三。。你需要使用快速读入
第四。。你需要适当的常数优化
第五。。你需要更高级的算法
第六。。你需要ORZ hzwer
第七。。你需要ORZ renqing
第八。。你需要ORZ wish大神
第九。。你需要ORZ 灰天飞雁
第十。。你需要不要到处乱D人
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
最后。。你需要一个平和的心态来面对下一次TLE