Cod sursa(job #717419)

Utilizator Iandrei96Isaila Ioan Andrei Iandrei96 Data 19 martie 2012 21:57:12
Problema Gardieni Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.39 kb
var pr:array[1..50050] of int64;
    n,i,j:longint;
    c,su,a,b,t:int64;
    f,g:text;
begin
assign(f,'gardieni.in');reset(f);
assign(g,'gardieni.out');rewrite(g);
read(f,n,t);
for i:=1 to n do
 begin
   read(f,a,b,c);
   for j:=a to b do
      if (pr[j]=0) or (pr[j]>c) then pr[j]:=c;
  end;
 su:=0;
 for i:=1 to t do
    su:=su+pr[i];
 write(g,su);
 close(f);close(g);
 end.