编译通过...

├ 测试数据 01：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：答案错误...程序输出比正确答案长

├ 测试数据 07：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 08：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 09：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案错误...　├ 标准行输出

　├ 错误行输出

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：0 有效耗时：0ms

var j,k,l,cd,jls:longint;

jl:array[1..3,1..3000]of longint;

begin

readln(cd,jls);

for j:=1 to jls do

readln(jl[1,j],jl[2,j],jl[3,j]);

for j:=2 to jls do

for k:=1 to j-1 do begin

if (jl[1,j]jl[1,k])and(jl[1,j]>jl[1,k]) then begin

l:=jl[2,k]-jl[1,j]+1;

jl[3,j]:=jl[3,j]-l;

if jl[3,j]=jl[1,k])and(jl[1,j]