>>886
2x^2-kx+1=0の解と係数の関係をつかって

0<a<1
ab=1/2
b=1/(2a)

1<b<2
1<1/(2a)<2
2a<1 ; 1<4a
a<1/2 ; 1/4<a
∴ 1/4<a<1/2
a+b=k/2
k=2(a+b)=2a+2/(2a)=2a+1/a

f <- function(x) 2*x+1/x
curve(f(x),1/4,1/2)
fは単調減少関数なので
> f(1/4)
[1] 4.5
> f(1/2)
[1] 3

3<k<4.5