ответ: -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.
Crt;
var
i,n:integer;
a,s:real;
begin
Writeln('Вычисление среднего арифметического');
Writeln('последовательности действительных чисел');
Write('Введите количество чисел последовательности ->');
Readln(n);
Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
s:=0;
for i:=1 to n do
begin
Read(a);
s:=s+a
end;
Writeln('Среднее арифметическое введенной последовательности: ',s/n);
Write('Для завершения работы программы нажмите Enter');
Readkey
end.
Тестовое решение:
Вычисление среднего арифметического
последовательности действительных чисел
Введите количество чисел последовательности ->5
Введите последовательность. После ввода каждого числа нажмите Enter
5.4
7.8
3.0
1.5
2.3
Среднее арифметическое введенной последовательности: 4
Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net:
var
i,n:integer;
a,s:real;
begin
Writeln('Вычисление среднего арифметического');
Writeln('последовательности действительных чисел');
Write('Введите количество чисел последовательности ->');
Readln(n);
Writeln('Введите последовательность. После ввода каждого числа нажмите Enter');
s:=0;
for i:=1 to n do
begin
Read(a);
s:=s+a
end;
Writeln('Среднее арифметическое введенной последовательности: ',s/n)
end.