Тут надо каждое десятичное число переводить в двоичную. Это же 32 бит.))
1) 2
2) 4
3) 2 (Переводим в одну сист счисл, считаем)
4) 1 (Переводим всё в одну сист счисл, проверяем выполнение условия)
Как мы тебе его здесь построим? открывай эксель и пиши в ячейках формулы
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (x, y) := ReadReal2;
Print((1 + Sqr(Sin(x + y))) / (2 + Abs(x - 2 * x / (1 * Sqr(x * y)))) + x)
end.
<h2>Пример</h2>
3.1 -0.273
3.24500687418188