Pagini recente » Cod sursa (job #3189781) | Cod sursa (job #2351415) | Cod sursa (job #1931761) | Cod sursa (job #134862) | Cod sursa (job #137699)
Cod sursa(job #137699)
var cmax,nrm,i,t1,t2,j,nr,cmin,tmin,t3,tmax,t,c,n,m:integer;
f,g:text;
begin
assign(f,'garaj.in'); reset(f);
assign(g,'garaj.out'); rewrite(g);
read(f,n,m);
read(f,c,t);
nr:=0;
cmin:=c;
cmax:=c;
tmin:=t;
tmax:=t;
t1:=0;
nrm:=0;
t2:=0;
t3:=0;
for i:=2 to n do begin
read(f,c,t);
if c> cmax then begin cmax:=c;
tmax:=t;
end;
if t< tmin then begin tmin:=t;
cmin:=c;
end;
end;
j:=m;
while m>=cmax do begin
nr:=1;
t1:=t1+tmax;
m:=m-cmax;
end;
if m<=cmin then begin
nr:=2;
t3:=t1+tmin;
end
else begin nr:=1;
t3:=t1+tmax;
end;
while j>0 do begin
nrm:=1;
t2:=t2+tmin;
j:=j-cmin;
end;
if t1<t2 then write(g,t1,' ',nrm)
else if t2<t1 then write(g,t2,' ',nr)
else write(g,t3,' ',nr);
close(f);
close(g);
end.