比赛代码 - COGS

比赛	“Asm.Def战记之拉格朗日点”杯	评测结果	WWWWWWWWWW
题目名称	Asm.Def的打击序列	最终得分	0
用户昵称	Ten.X	运行时间	0.072 s
代码语言	Pascal	内存使用	0.25 MiB
提交时间	2015-11-04 11:52:13

显示代码纯文本

var sum:array[0..30005]of longint;i,n,m,c,z,x,y:longint;
begin
assign(input,'asm_lis.in');
assign(output,'asm_lis.out');
reset(input);
rewrite(output);
fillchar(sum,sizeof(sum),0);
read(n,m,c);
for i:=1 to m do
begin
read(x,y,z);
sum[i]:=sum[i-1]+z;
end;
write(sum[i]+c*(n-m));
close(input);
close(output);
end.