Cod sursa(job #801133)
Utilizator | Muntea Andrei EuBossulet | Data | 23 octombrie 2012 16:26:00 |
---|---|---|---|
Problema | Gardieni | Scor | 70 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.4 kb |
Program gardieni;
var a:array[1..1000001] of longint;
n,t,c:int64;
x,b,i,j:longint;
f,q:text;
begin
assign(f,'gardieni.in');
reset(f);
assign(q,'gardieni.out');
rewrite(q);
read(f,n,t);
for i:=1 to n do
begin
read(f,x,b,c);
for j:=x to b do if (a[j]>c) or (a[j]=0) then a[j]:=c;
end;
n:=0;
for i:=1 to t do n:=n+a[i];
write(q,n);
close(f);
close(q);
end.