Cod sursa(job #127569)

Utilizator CezarMocanCezar Mocan CezarMocan Data 24 ianuarie 2008 14:37:09
Problema Gardieni Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.63 kb
type vicotre_stie_vecotri=record
                a,b,c:longint;
                end;
var v:array[1..50100] of vicotre_stie_vecotri;
    i,j,n,t:longint;
    s:int64;
    x:array[1..1000100] of longint;

begin
assign(input,'gardieni.in');reset(input);
assign(output,'gardieni.out');rewrite(output);
readln(n,t);
for i:=1 to n do
        readln(v[i].a,v[i].b,v[i].c);
for i:=1 to t do
        x[i]:=maxlongint;
for i:=1 to n do
        for j:=v[i].a to v[i].b do
                if (x[j]>v[i].c) then
                        x[j]:=v[i].c;
for i:=1 to t do
        s:=s+x[i];
writeln(s);
close(input);close(output);
end.