<h2>Скорее всего ЛЕВЫЙ. Надеюсь правильно сказал</h2>
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>1-x)and(x<1)and((y>2*x*x)or(y<2*x*x)and(x>0))
then writeln('YES') else writeln('NO')
end.
Пример:
x = 0.75
y = 1
YES
Program zad1;
const N = 6;
var a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do
begin b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.
A = «Число 22 — чётное число» true (истина)
B =«Волк — травоядное животное» false (ложь)
Значения логического типа boolean занимают 1 байт и принимают одно из двух значений, задаваемых предопределенными константами True (истина) и False (ложь).
F = !B & ( A + !(A&B) ) = !B & (A + !A + !B) = !B & (1+!B)= !B
{ т.к. !(A&B) = !A + !B }
F = !(A&B) + A&!B + A&B + B&C = !A + !B + A + B&C = !B + B&C
{ т.к. !(A&B) = !A + !B, A&!B + A&B = A&(!B+B) = A }
F = !(A&B + B&C) + C&!A = (A&B + B&C) & !(C&!A) =
= (A&B + B&C) & (!C+A) = B&(A+C)&(A+!C) = B & A
{ т.к. (A+C)&(A+!C) = AA + A!C + CA + C!C = A + A(!C+C)+0 = A + A = A }