===== PascalABC.NET =====
begin
var (p, a, b) := ReadReal3('Введите p, a, b:');
var x := Ln(Tan(Sqrt(2)) + Abs(p)) / Ln(2);
Println(x.InRange(a, b))
end.
Объяснение:
arctg(2^x - |p| = √2
tg(arctg(2^x - |p|) = tg(√2)
2^x - |p| = tg(√2)
2^x = tg(√2) + |p|
x = ㏒₂( tg(√2) + |p| )
x = ㏑( tg(√2) + |p| ) / ㏑2
И теперь ответить, верно ли, что x ⊂ [a; b]
===== PascalABC.NET =====
begin
var (p, a, b) := ReadReal3('Введите p, a, b:');
var x := Ln(Tan(Sqrt(2)) + Abs(p)) / Ln(2);
Println(x.InRange(a, b))
end.
Объяснение:
arctg(2^x - |p| = √2
tg(arctg(2^x - |p|) = tg(√2)
2^x - |p| = tg(√2)
2^x = tg(√2) + |p|
x = ㏒₂( tg(√2) + |p| )
x = ㏑( tg(√2) + |p| ) / ㏑2
И теперь ответить, верно ли, что x ⊂ [a; b]