Ищем в таблице истинности строку, дающую F=1. Это нижняя строка. Теперь надо из выражений 1-4 выбрать то, которое при указанном наборе значений x1-x7 даст истинное значение. Проверяем выражения, содержащие операции "И". Каждое такое выражение будет истино, если все его элементы истины. 1) х1 должно быть истинным, а у нас х1 ложно. Выражение отвергаем. 4) Должны быть ложны х1, х3, х6 и х7. В точности, как у нас. Походит. Два оставшихся выражения содержат операции "ИЛИ". Такое выражение будет истинно, если истинен хоть один его элемент. 2) х1 должен быть истинным, у нас он ложен, у нас он истинный, х3 должен быть истинный, у нас он должный, х4 должен быть ложный, у нас он истинный, х5,х6, х7 - все должны быть истинными и у нас х5 истинный. Подходит 3) х1 должен быть ложным, у нас он ложный. Подходит. Теперь проверяем, будут ли отобранные нами выражения 2), 3) и 4) давать ложное значение при наборе параметров из первых двух строчек. 4) х1 истинно в обоих проверяемых наборах параметров, а оно должно быть ложным. В связи с этим выражение вернет значение ложно, что и ожидается. Подходит, выражение 4 прошло все проверки. 2) х1 должно быть ложным, чтобы все выражение было ложным, а во втором наборе таблицы истинности указано истинное значение. Выражение отвергаем. 3) х1 должно быть истинным, чтобы все выражение было ложным, а в первом наборе таблицы истинности указано истинное значение. Выражение отвергаем.
Решение: только последнее (четвертое) выражение удовлетворяет условиям задачи.
Ребята я вам расскажу одну историю мне не рассказывала прабабушка что у неё был Одноклассник он ломал компьютеры но потом этот мальчик исчез а потом в тот кабинет никто не заходил в кабинет информатики убрали разнесли потом потом построили другой кабинет информатики там этот мальчик больше туда не приходил и никто туда не входил даже учителя
var a, i, count, s: integer; begin repeat if(i = 100) then break; readln(a); if(abs(a) > 300) then begin writeln('Число по модулю не может быть > 300.'); continue end else if(a mod 9 = 0) and (a <> 0) then begin inc(count); s := s + a; end; if(a <> 0) then inc(i); until(a = 0); writeln('Среднее арифметическое: ', s / count); end.