А = 1 "И" "Не А" = 1 то логическая формула равна нулю
А = 1 "И" "Не А" = 0 то логическая формула равно единице
А = 0 "И" "Не А" = 1 то логическая формула равна нулю
А = 0 "И" "Не А" = 0 то логическая формула равна нулю
Пояснение. "и" - это конъюнкция. В ней её переменные равны 1 только в том случае когда обе переменные истины. То есть 1. А так как Не А - это отрицание. То любое число становится противоположным. В данном случае ноль будет единицой
В ряду 1,2,...6,7 три четных числа (2,4,6) и четыре нечетных.
Три четных числа могут образовать 3!=1х2х3=6 перестановок.
Четыре нечетных числа могут образовать 4!=1х2х3х4=24 перестановки.
Поэтому общее количество перестановок равно 6х24=<u><em>144</em></u>.
1)
begin
var a:=ReadArrInteger('Введите 10 чисел:',10);
var i:=a.IndexMax;
Writeln('Максимум A[',i+1,']=',a[i]);
<span>end.
</span>
2)
const n=6;
type
Q=record
ch:integer;
zn:integer;
end;
var a:array[1..n] of Q;
j,k,max:integer;
f:boolean;
mx:Q;
begin
write('k: ');
readln(k);
for var i:=1 to n do
begin
writeln('Дробь ',i);
write('Введите числитель= ');
readln(a[i].ch);
repeat write('Введите знаменатель= ');
readln(a[i].zn);
until a[i].zn>0;
end;
writeln('Введенные дроби:');
for var i:=1 to n do
write(a[i].ch,'/',a[i].zn,' ');
writeln;
j:=0;
for var i:=1 to n do
if (a[i].ch div a[i].zn mod k = 0) then j:=j+1;
writeln('кол-во ',j);
end.
Пример
k: 8
Дробь 1
Введите числитель= 16
Введите знаменатель= 2
Дробь 2
Введите числитель= 64
Введите знаменатель= 8
Дробь 3
Введите числитель= 120
Введите знаменатель= 15
Дробь 4
Введите числитель= -15
Введите знаменатель= 5
Дробь 5
Введите числитель= -16
Введите знаменатель= 2
Дробь 6
Введите числитель= -8
Введите знаменатель= 1
Введенные дроби:
16/2 64/8 120/15 -15/5 -16/2 -8/1
кол-во 5
На правой панели проводника может отображаться либо свойства выбранного файла, либо его предварительный просмотр, либо ничего