Pagini recente » Cod sursa (job #1039680) | Cod sursa (job #974533) | Cod sursa (job #411545) | Cod sursa (job #1073306) | Cod sursa (job #137409)
Cod sursa(job #137409)
var i,n,m,c1,t1,t3,t4,min1,min2,t,t2,ct,min3,min4,s:longint;
f,g:text;
begin
assign(f,'garaj.in'); reset(f);
assign(g,'garaj.out'); rewrite(g);
readln(f,n,m); min1:=9999; min2:=9999; min3:=9999; min4:=9999; s:=0;
for i:=1 to n do begin
readln(f,c1,t1);
if min1>t1 then begin min2:=min1; min4:=min2;
min1:=c1; min3:=t1;
end;
end;
s:=min1+min2; t3:=min3; t4:=min4;
while s<m do
if t3>t4 then begin s:=s+min2;
t4:=t4+2*min4;
end
else begin s:=s+min1;
t3:=t3+2*min3;
end;
if t4>t3 then write(g,t4,' ')
else write(g,t3,' ');
write(g,'2');
close(f); close(g);
end.