ответ: -y
Объяснение:
Оговоримся с синтаксисом.
"НЕ А" - "-А"
"дизъюнкция" (веточки вверх) - "+"
"конънкция" (веточки вниз) - "*"
-y + -[(x + y) * -y] * x * -y
Обратим внимание на -[(x + y) * -y]. Воспользуемся законом де Моргана для И (конъюнкции):
-[(x + y) * -y] = -(x + y) + --y
по закону двойного отрицания:
-(x + y) + y
Теперь воспользуемся законом де Моргана для ИЛИ:
-x * -y + y
Вернём это в исходное выражение:
-y + -[(x + y) * -y] * x * -y = -y + [-x * -y + y] * x * -y
Воспользуемся распределительным законом для ИЛИ:
-y + [-x * -y + y] * x * -y = -y + (-x * x * -y + x * y) * -y
по закону исключения третьего для И:
-y + (-x * x * -y + x * y) * -y = -y + (0 * -y + x * y) * -y = -y + (0 + x * y) * -y (операция с константой)
по закону операций с константами:
-y + (0 + x * y) * -y = -y + x * y * -y
теперь так же закон исключения третьего для И и закон операций с константами:
-y + x * y * -y = -y + x * 0 = -y + 0 = -y
===== PacalABC.NET =====
begin
var L := ReadReal('Укажи расстояние до танка:');
Writeln('Программа завершается при попадании в танк');
Writeln('или при вводе числа, не попадающего в диапазон от 0 до 90');
var (g, v0, eps) := (9.81, 100.0, 1.0);
while True do
begin
var a := ReadReal('Введи угол наклона пушки, град:');
if not a.InRange(0.0, 90.0) then Exit;
var d := L - Sqr(v0) * Sin(2 * DegToRad(a)) / g;
if Abs(d) <= eps then
begin
Println('Ура! Попадание!');
Exit
end
else if d > 0 then
Println('Недолет')
else
Println('Перелет')
end
end.