1. 0
2. 1
3. 1
4. 1
Объяснение:
1. Здесь у нас логическая операция конъюнкция или логическое умножение. Первая скобка ложна, ибо 3 не больше 5, ровно так же 2 не больше 4. В этом задании будем принимать значение ложь как 0, а истину - как 1. Получается, что если мы 0 умножим на 0, то получим 0.
2. Идём дальше по тому же методу. Первая скобка будет равна единице (истина), вторая - тоже. 1 * 1 = 1
3. В следующих двух примерах у нас логическая операция дизъюнкция или логическое сложение. Первая скобка равна 1 (истина), вторая - равна 0 (ложь). 1 + 0 = 1.
4. Ровно так же поступаем. Первая скобка - 1 (истина), вторая - 1. 1 + 1 = 1 (в алгебре логике 1 + 1 даёт значение 1 (истина))
1)
Var a,b:array[1..10] of real;
s,k:real; i:integer;
Begin
wtiteln('Init A:')
for i:=1 to 10 do
begin
readln(k);
a[i]=k;
end;
wtiteln('Init B:')
for i:=1 to 10 do
begin
readln(k);
b[i]=k;
end;
s:=0;
k:=0;
for i:=1 to 10 do
k:=k+a[i];
k:=k/10;
for i:= to 10 do
s:=s+b[i];
s:=(s/10)+k;
writeln(s);
End.
2)
Var a,b:array[1..10] of real;
r,k:real, i:integer;
Begin
writeln('Init A:");
for i:=1 to 10 do
begin
readln(k);
a[i]:=k;
end;
writeln('Init B:");
for i:=1 to 10 do
begin
readln(k);
b[i]:=k;
end;
r:=0
k:=0;
for i:=1 to 10 do
k:=k+a[i];
for i:=1 to 10 do
r:=r+b[i];
r:=r-k;
writeln(r);
End.