Все 5-буквенные слова, составленные из букв И, К, Р, А, записаны в алфавитном порядке. Вот начало списка: И К Р АААИА Укажите номер слова АКИРИ. Напишите в ответ число.
2) каждое из чисел х у z положительно ( x>0) ∧ (y>0) ∧ (z>0) 1) х у z равны между собой (x=y)∨ (x=z) ∨ (y=z) 3) хотя бы одно из чисел х у z отрицательно (x<0)∨ (z<0) ∨ (y<0) 4) хотя бы одно из чисел х у z не является положительным (x<0)∨ (z>0) ∨ (y>0) 5) только одно из чисел х у z не больше 10 (( x<=10) ∧ (y>10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y<=10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y>10) ∧ (z<=10)) 6) ни одно из чисел х у z не равно 104 ¬(x=104)∧ (¬(y=104))∧( ¬(z=104)) ВТОРОЕ ЗАДАНИЕ ПРОВЕРЬ УСЛОВИЕ ЧТО-ТО В НЕМ НЕВЕРНО
Const N = 33; Var A:array[1..N] of integer; i,m:integer; Begin {Заполнение массива} For i:= 1 to N do Begin A[i]:=random(21)-10; Write(A[i],' ') End; WriteLn; {Поиск минимального элемента} m:=1; For i:= 2 to N do if A[i]<=A[m] then m:=i; WriteLn('Min = A[',m,'] = ',A[m]); End.
Const N = 33; Var A:array[1..N] of integer; i,M,k:integer; Begin {Заполнение массива} For i:= 1 to N do Begin A[i]:=random(21)-10; Write(A[i],' ') End; WriteLn; {Поиск наибольшего элемента} M:=A[1]; For i:= 2 to N do if A[i] > M then M:=A[i]; {Поиск кол-ва максимальных элементов} k:=0; For i:= 1 to N do if A[i] = M then k:=k+1; WriteLn('k_Max = ',k) End.
( x>0) ∧ (y>0) ∧ (z>0)
1) х у z равны между собой
(x=y)∨ (x=z) ∨ (y=z)
3) хотя бы одно из чисел х у z отрицательно
(x<0)∨ (z<0) ∨ (y<0)
4) хотя бы одно из чисел х у z не является положительным
(x<0)∨ (z>0) ∨ (y>0)
5) только одно из чисел х у z не больше 10
(( x<=10) ∧ (y>10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y<=10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y>10) ∧ (z<=10))
6) ни одно из чисел х у z не равно 104
¬(x=104)∧ (¬(y=104))∧( ¬(z=104))
ВТОРОЕ ЗАДАНИЕ ПРОВЕРЬ УСЛОВИЕ ЧТО-ТО В НЕМ НЕВЕРНО