2 высказывание ложное, т. к. в одной коробке не может быть больше 1 типа фруктов. Получается, остальные высказывания верны:
Тогда: 3 коробка - апельсины
4 коробка - яблоки
1 коробка - груши
В 2 коробке остаются бананы.
Если в коробке яблоки или апельсины, то в ней точно нет бананов и груш.
Неформальный исполнитель - человек => ученик
Sub aaa()
s = 0: sign = 1
i = 1
Do While i <= 100
s = s + sign * i
sign = -sign
i = i + 1
Loop
MsgBox s
End Sub
В результате будет получено значение -50.
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
procedure MatrixCreate(m,n:integer; var A:array[,] of integer);
begin
A:=MatrRandom(m,n,-50,50);
end;
procedure MatrixOutput(A:array[,] of integer);
begin
A.Println(4)
end;
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
var a:array[,] of integer;
MatrixCreate(m,n,a);
Writeln('*** Исходная матрица ***');
MatrixOutput(a);
a.Transform(t->t>0?1:t);
Writeln('*** Полученная матрица ***');
MatrixOutput(a);
end.
31 запишется как 11111 - это 5 бит.
предложение займет 160 бит = 20 символов по 8 бит