1. Заметим, что первый вариант дает в результате 0 во всех случаях, так как конъюнкция ложна, если ложен хотя бы один из её аргументов, а это не соответствует значениям F.
2. Выражение в варианте 2, как и в варианте 4, принимает ложные значения, если X не эквивалентно Z, а значит, по первой и третьей строчке и 2, и 4 вариант удовлетворяют F.
3. Остается сравнить их по второй строке, в которой F – истинно. В этой строке X=0, Y=1, Z=0, значит, выражение в варианте 2 здесь истинно.
4. Так как значения F и значения функции в варианте 2 сошлись по всем трем строкам, вариант 2 является ответом к данной задаче.
Объяснение:
uses crt;
var n,m,min:integer;
r:real;
begin
Write('Введите число n: ');
Readln(n);
Write('Введите число m: ');
Readln(m);
If n>m then
min:=m
else
min:=n;
If (n>100) and (m>100) then
begin
n:=min;
m:=min;
Writeln('n= ',n,' m= ',m);
end;
If (n>0) and (m<0) then
Writeln('n= ',n/2,' m= ',m/2)
else
r:=(n+m)/2;
Writeln('Среднее арифм. : ',r);
end.