Пишу на QBasic
Нам уже дан заполненный массив
FOR I = (кол-во элементов массива) TO 1 STEP -1
IF A(I)<0 THEN
PRINT I
END
END IF
Нет, тк 1 символ=8 бит, то 8 символов=8*8=64 бит
1. A⋀¬B∨A⋀¬C≡A⋀(¬B∨¬C)≡A⋀¬(B⋀C) -- (3 лог. эл.)
2.(A↔B)⋀(B→C)≡(¬A⋀¬B∨A⋀B)⋀(¬B∨C)≡(¬A⋀¬B⋀¬B)∨(¬A⋀¬B⋀C)∨(A⋀B⋀¬B)∨(A⋀B⋀C)≡(¬A⋀¬B)∨(¬A⋀¬B⋀C)∨(A⋀B⋀¬B)∨(A⋀B⋀C)≡(¬A⋀¬B)∨(A⋀B⋀¬B)∨(A⋀B⋀C)≡(¬A⋀¬B)∨0∨(A⋀B⋀C)≡(¬A⋀¬B)∨(A⋀B⋀C)≡¬(A∨B)∨(A⋀B⋀C) -- (5 лог. эл.)
Схемы в прикрепленных.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -50, 50);
a.Println;
var b := ArrRandom(10, -50, 50);
b.Println;
var c := a.Zip(b, (p, q)-> p * q).ToArray;
c.Println
end.
formula = x * y*y + sqrt(x) - sqrt((x*x*x) + (z*z*z*z));