Постройте таблицы истинности для логических выражений: 1. а/\в\/а/\в 2. (а\/в)/\(а\/в) 3. в/\(а\/в\/с) 4.* (а/\в\/с)

Для краткости знак & можно опускать

Задание 1.
А/\В\/А/\В = A&B+A&B = A&B

Задание 2.
(А\/В)/\(А\/В) = (A+B)&(A+B) = (A+B)

Задание 3.
В/\(А\/В\/С) = B&(A+B+C) = BA+BB+BC =
= BA+B+BC = B(A+1+C) = B

Задание 4.
(А/\В\/С) = A&B+C

{
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}

var
 sq : array[0..999] of array[0..9] of boolean;
 co : array[0..999] of integer;
 ar : array[1..10003] of 0..9;
  i,j: integer;
 x: integer;
 t : boolean;
 begin
 for i := 0 to 999 do
   begin
   for j := 0 to 9 do
   sq[i][j] := false;
   co[i] := 0;
   end;
 for i := 1 to 3 do
   ar[i] := 0;
 i := 3;
 t := true;
 {write('000');}
 while t do
   begin
   i := i + 1;
   x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
   if co[x] >= 10 then t := false
     else
     begin
     j := 1;
     while sq[x][j] do 
       j := (j + 1) mod 10;
     ar[i] := j;
     sq[x][j] := true;
     co[x] := co[x] + 1;
     {write(j)}
     end;
   end;
 {writeln;}
 writeln('Length: ',i - 1);

 {просто чтобы убедиться}
 for i := 0 to 999 do
   for j := 0 to 9 do
   sq[i][j] := false;

  t := true;
 j := 0;
 i := 1;
 while (i <= 10000) and t do
   begin
   x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
   if sq[x][ar[i+3]] then t := false
     else
     begin
     sq[x][ar[i+3]] := true;
     j := j + 1;
     end;
   i := i + 1
   end;
 if t and (j = 10000) then
   write('Confirmed')
end.

Учитель: Добрый день! Сегодня мы рассмотрим задачи на работу с числами. Давайте начнем с первой задачи.

Задача 1. Дано двухзначное число. Нам нужно определить, входят ли в него цифры 5 и а. Мы выведем на экран 1, если да, и 0, если нет.

Посмотрим на пример числа: 52.

а) Проверка на наличие цифры 5. Для этого нам нужно посмотреть каждую цифру числа и сравнить ее с 5. Первая цифра - 5. Так как она равна 5, то мы можем сказать, что цифра 5 входит в это число. Выводим на экран 1.

б) Проверка на наличие цифры а. Здесь нам нужно знать значение переменной а. Предположим, что а = 7. Мы действуем так же, как и в предыдущем пункте, сравниваем каждую цифру числа с переменной а. В данном случае вторая цифра - 2, и она не равна 7. Поэтому мы можем сказать, что цифра а не входит в данное число. Выводим на экран 0.

Надеюсь, задача понятна. Если у вас есть вопросы, можете задать их.

Теперь перейдем ко второй задаче.

Задача 2. Нам нужно написать программу, которая находит сумму последовательности отрицательных чисел до первого введенного нуля.

Для решения задачи, давайте разберемся, как мы должны идти по последовательности чисел.

Контрольный пример: 1,2,3,-4,5,-2,0

Мы начинаем с первого числа 1. Оно не отрицательное, поэтому мы его пропускаем.

Переходим ко второму числу 2. Оно также не отрицательное, поэтому его тоже пропускаем.

Третье число 3 также пропускаем.

Четвертое число -4. Оно отрицательное, поэтому его мы учитываем в сумме.

Пятое число 5 - не отрицательное, пропускаем.

Шестое число -2 - снова отрицательное, добавляем его к сумме.

И наконец, вводим ноль. Завершаем поиск.

Теперь посмотрим на решение этой задачи в виде программы:

```python
sequence = [1, 2, 3, -4, 5, -2, 0]
sum_of_negatives = 0
i = 0

while sequence[i] != 0:
if sequence[i] < 0:
sum_of_negatives += sequence[i]
i += 1

print("Сумма отрицательных чисел: ", sum_of_negatives)
```

В этой программе мы используем список `sequence`, чтобы представить последовательность чисел. Затем мы создаем переменную `sum_of_negatives`, которая будет хранить сумму всех отрицательных чисел. Перед началом цикла установим переменную `i` в ноль.

Цикл `while` будет выполняться до тех пор, пока значение в списке `sequence` не станет равным нулю. Внутри цикла проверяем, является ли число отрицательным. Если это так, то мы добавляем его к общей сумме, используя операцию сложения. Затем мы увеличиваем значение `i` на единицу, чтобы перейти к следующему числу в последовательности.

В конце программы мы выводим на экран сумму отрицательных чисел.

Надеюсь, это помогло вам понять, как решать данную задачу. Если у вас остались вопросы, не стесняйтесь задавать их.