Рассмотрим первое уравнение. В этом уравнении имеется импликация, которая принимает значение 0 для набора исходных значений 1 и 0. Значит, если x[i]=1, то для всех j>=i в решениях этого уравнения должно быть x[j]=1. Из данных рассуждений следует, что решениями первого уравнения будут (значения переменных перечислены в порядке x1, x2, x3, x4): 0000, 0001, 0011, 0111, 1111 (всего 5 наборов) Чтобы убедиться в этом можно также сделать таблицу истинности для первого уравнения (она должна содержать 2^4=16 строк). Очевидно, что второе и третье уравнение имеют по 5 аналогичных решений. Обозначим наборы значений переменных x, y и z соответственно X, Y и Z. Решением системы в этом случае будут наборы {X, Y, Z}, причем, учитывая 4-е уравнение, в состав этих наборов обязательно должен входить хотя бы один набор 0000. Пересчитываем все наборы: {0000, Y, Z} - так как для Yи Z имеется по 5 наборов, то получаем 25 решений (например, 1-й: 0000 0000 0000, 2-й: 0000 0000 0001 и т.д.) {X, 0000, Z} - для X и Z имеется, как уже показано, тоже по 5 наборов решений, но для исключения дублирования набор X=0000 исключаем из рассмотрения, значит, здесь будет 4*5 = 20 решений {X, Y, 0000} - рассуждая аналогичным образом (т.е. исключая дубликаты), получаем, что здесь добавляется ещё 4*4=16 решений. Итого: 25+20+16=61 набор.
1. While: var a,i,s:integer; begin s:=0; i:=0; while i<10 do begin i:=i+1; write('a = '); readln(a); s:=s+a; end; writeln('Среднее арифметическое = ',s/10); end.
2. Repeat var a,i,s:integer; begin s:=0; i:=0; repeat i:=i+1; write('a = '); readln(a); s:=s+a; until i=10; writeln('Среднее арифметическое = ',s/10); end.
3. For: var a,i,s:integer; begin s:=0; for i:=1 to 10 do begin write('a = '); readln(a); s:=s+a; end; writeln('Среднее арифметическое = ',s/10); end.
Пример: a = 4 a = 6 a = 9 a = 7 a = 1 a = 3 a = 6 a = 5 a = 4 a = 8 Среднее арифметическое = 5.3
В питоне запись "x**y" возводит число x в степень y
2**5=32
Объяснение: