Сколько существует различных наборов значений логических переменных x1, x2, ... x8, которые удовлетворяют всем перечисленным ниже условиям: ¬(x1 ≡x2)∨(x3 →x4)=1;
¬(x3 →x4)∨(x5 →x6)=1;
Пример: из тройки чисел 11, 13, 12 можно составить требуемую прогрессию, а из тройки 10, 10, 10 – нет.
В ответе запишите только число – количество найденных троек, соответствующих условию задания.
¬(x5 →x6)∨(x7 ≡x8)=1?
В ответе не нужно перечислять все различные наборы значений переменных
Для Вашего удобства электронная таблица представлена в четырёх форматах (файлы 11-2.xls, 11-2.xlsx, 11-2.ods, 11-2.csv). Для выполнения работы выберите формат, соответствующий изученному Вами процессору электронных таблиц.
x1, x2, ... x8, при которых выполнена данная система

Объяснение:

Адрес файла в сети интернет выглядит так: ПРОТОКОЛ://СЕРВЕР/ПУТЬ/ФАЙЛ Сначала указывается протокол http (Б), далее – двоеточие и 2 слеша (Г). После этого указывается название сервера ftp.net (Ж и Д). Так как нет указания на дополнительные папки, файл находится в корне сервера. Значит, далее идет слеш (В) и название файла www.txt (Е и А). Таким образом, последовательность букв БГЖДВЕА кодирует адрес указанного файла. ОТВЕТ: БГЖДВЕА

Источник: http://worksbase.ru/informatika/kak-reshat/245-dostup-k-failu.html

var i,n,p,s,k,m:integer;

a:array [1..11] of integer;

begin

n:=10;

p:=1;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(9)+1;

if a[i] mod 3 = 0 then p:=p*a[i];

write(a[i]:2,' ')

end;

writeln;

if p<>1 then writeln('Произведение элементов кратных 3 равно ',p)

else writeln('Элементов кратных 3 нет. Произведение элементов кратных 3 равно 0');

n:=9;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(9)+1;

if a[i] > 5 then

begin

s:=s+a[i];

k:=k+1

end;

write(a[i]:2,' ')

end;

writeln;

if k<>0 then writeln('Cреднее арифметическое элементов массива больше 5 равно ',s/k:0:3)

else writeln('Элементов больше 5 нет. Cреднее арифметическое элементов массива больше 5 равно 0');

n:=11;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(9)+1;

write(a[i]:2,' ')

end;

writeln;

m:=a[1];

for i:=2 to n do

if a[i]>m then m:=a[i];

writeln('Самый большой элемент массива равен ',m)

end.