Var
m,n: array [1..15] of integer;
a,i,max: integer;
begin
readln(a);
writeln('Исходный массив:');
for i:= 1 to 15 do
begin
m[i]:= random(20);
n[i]:=m[i]*a;
if (n[i]>max) and (i mod 2=1) then max:=n[i];
write (m[i],' ');
end;
writeln;
writeln('Новый массив:');
for i:= 1 to 15 do write (n[i],' ');
writeln;
writeln('Максимальный нечетный: ',max);
<span>end.</span>
1) ¬(¬A ^ B) ^ ¬C =( ¬(¬A)∨¬B)∧¬C = (A∨¬B)∧¬C
выражение эквивалентно выражению под цифрой 4)
<span>
2) Для того чтобы выражение было истинным надо чтобы истинными были каждое из выражений
</span><span>(Y < 5) и ((Y > 1) -> (Y > 5))
первое выражение истинно для всех указанных Y.
рассмотрим второе выражение: </span>((Y > 1) -> (Y > 5))
это выражение ложно только если (Y > 1) истинно, а (Y > 5) ложно
выражение (Y > 5) ложно для всех Y,
а выражение (Y > 1) истинно для Y = 2 , 3 , 4
Таким образом выражение ((Y > 1) -> (Y > 5)) истинно только для Y= 1
поэтому правильный ответ под номером 1)
4 Кбайта = 2^2 Кбайта = 2^2 * 1024 байт = 2^2 * 2^10 байт = 2^12 байт = 2^12 * 8 бит = 2^12 * 2^3 бит = 2^15 бит