В задании представлены только 2 операции:
Конъюнкция (/\, *, &, логическое умножение) и дизъюнкция (\/, +, логическое сложение).
Порядок выполнения как в математике, сперва умножение (^) потом сложение (\/). И не стоит забывать что в первую очередь выполняются действия в скобках.
Таким образом:
1) (1 \/ 1) \/ (1 \/ 0) = 1 \/ 0 = 1
2) (((1 \/ 0) \/ 1) \/ 1) = ((1 \/ 1) \/ 1) = 1 \/ 1 = 1
3) (0 & 1) & 1 = 0 & 1 = 0
4) 1 & (1 & 1) & 1 = 1 & 1 & 1 = 1 & 1 = 1
5) ((1 \/ 0) & (1 & 1)) & (0 \/ 1) = (1 & 1) & 1 = 1 & 1 = 1
6) ((1 & 1) \/ 0) & (0 \/ 1) = (1 \/ 0) & 1 = 1 & 1 = 1
7) ((0 & 0) \/ 0) & (1 \/ 1) = (0 \/ 0) & 1 = 0 & 1 = 0
8) (A \/ 1) \/ (B \/ 0) = 1 \/ B = 1
9) ((1 & A) \/ (B & 0)) \/ 1 = (A \/ 0) \/ 1 = A \/ 1 = 1
10) 1 \/ A & 0 = 1 \/ 0 = 1
С аналогией бухгалтерской рабочей книгой
Var
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.
Электронная почтовая, это как средство приложения к письмам