16 символов - 4 бита.
4*74 = 296 битов.
296/8=37 байт
n:=5;
x:=0;
for i:=1 to n do
x:=i;
После выполнения цикла значение x будет равно 5
Label1.Caption:=IntToStr(x);
На экран будет выведено 5
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var a := ArrRandomInteger(Random(10, 100), 5, 35);
Println(a);
Println('Кол-во запрашиваемых элементов массива = ',a.Count(x -> (x mod 5 = 0) and (x mod 2 = 0)));
end.
1) F = (X∧Y)∧(X≡Y)
X∧Y =1 когда Х=1 и Y=1
X≡Y =1 когда ( X=0 и Y =0) или (X=1 и Y=1)
подставляем в эту функцию F значения X Y Z из таблицы и смотрим, получилось ли указанное в таблице значение F:
1)
для первой строки в таблице:
(1∧0)∧(1≡0) =0 ? - верно!
для второй строки
(0∧1)∧(0≡0) =0 ? - верно
для третьей строки
(0∧0)∧(0≡1)=0 ? верно
ОТвет 1)
(если бы в 1) было противоречие, надо было бы проверять 2) и тд)