Сколько существует различных наборов значений логических переменных 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, при которых выполнена данная система

Я, в основном, программы на С++ пишу, но из школы про Паскаль кое-что помню (в смысле, попытаюсь написать на Паскале).

Program A1;

var a,b,c,i:integer;

begin

write('Enter the a: ');

read(a);

writeln('Enter the b: ');

read(b);

с:=0;

for i:=1 to a Do

     c:=c+b;

writeln('a*b=',c:5:0);

end.

Объясняю (начинаю сразу с цикла for): что значит произведение двух натуральных чисел а и b - это означает, сложить b с самим собой по а раз (можно и наоборот). Например, a=5, b=3. Переменную с=0 будем складывать с b.

i=1      c=5+0;

i=2      c=5+5;

i=3      c=10+5;   //c=15

Вот и есть ответ: 5*3=15.

Задача 1:

var a:array[1..15] of integer;

i:integer;

begin

   for i:=1 to length(a) do begin

       a[i]:=random(-101)+50;

       writeln('a[',i,']=', a[i]);

   end;

end.

Задача 2:

var i:integer;

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

b:array[1..20] of integer;

c:array[1..20] of integer;

begin

   for i:=1 to length(a) do begin

       a[i]:=random(-21)+10;

       b[i]:=random(-21)+10;

       c[i]:=a[i]+b[i];

       write(a[i]:3, ' ');

   end;

   writeln();

   for i:=1 to length(b) do write(b[i]:3, ' ');

   writeln();

   for i:=1 to length(c) do write(c[i]:3, ' ');

end.

Задача 3 (ряд Фибоначчи):

var i:integer;

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

begin

   for i:=1 to length(a) do begin

       if i<=2 then a[i]:=1

       else begin

           a[i]:=a[i-2]+a[i-1];

       end;

       write(a[i], ' ');

   end;

end.