Cod sursa(job #138013)
Utilizator | Andrei Purice Protoman | Data | 17 februarie 2008 19:38:52 |
---|---|---|---|
Problema | Gardieni | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.62 kb |
var f1,f2:text;
i,j,s,f,c,n,t:longint;
sm:int64;
v:array[0..1000000] of longint;
begin
assign(f1,'gardieni.in');
reset(f1);
assign(f2,'gardieni.out');
rewrite(f2);
read(f1,n,t);
for i:=1 to t do
v[i]:=maxlongint;
for i:=1 to n do
begin
read(f1,s,f,c);
for j:=s to f do
if v[j]>c then
v[j]:=c;
end;
for i:=1 to t do
sm:=sm+v[i];
writeln(f2,sm);
close(f1);
close(f2);
end.