43 条题解
-
0
蓝色物语 LV 8 @ 2009-08-09 15:29:22
噢噢
-
-1
编译通过...
├ 测试数据 01：答案错误... ├ 标准行输出
├ 错误行输出├ 测试数据 02：运行超时...
├ 测试数据 03：运行时错误...|错误号: 255
├ 测试数据 04：答案错误... ├ 标准行输出
├ 错误行输出├ 测试数据 05：答案错误... ├ 标准行输出
├ 错误行输出├ 测试数据 06：答案正确... 0ms
├ 测试数据 07：答案错误... ├ 标准行输出
├ 错误行输出├ 测试数据 08：答案错误... ├ 标准行输出
├ 错误行输出├ 测试数据 09：答案错误... ├ 标准行输出
├ 错误行输出├ 测试数据 10：答案错误... ├ 标准行输出
├ 错误行输出---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：10 有效耗时：0msvar j,k,l,cd,jls:longint;
jl:array[1..4,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:=1 to jls-1 do
for k:=j+1 to jls do
if jl[2,j]0 then for l:=jl[2,j]-jl[3,j]+1 to jl[2,j] do
jl[4,l]:=1;
end;
l:=0;
for j:=1 to cd do
l:=l+jl[4,j];
writeln(l);
end.
蓝色物语
LV 8
@ 2009-08-09 15:29:22
