Var N,A,Min:integer;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A mod 2 = 0)and(A < Min) then Min:=A;
End;
WriteLn(Min)
End.
2) х/11=22/1
х=22*11=242
х/10=21/1
х=21*10=210
242-210=32
3)из 12 в 8, потом из 8 в 5 , потом из 5 выливаем обратно в 12, затем из 8 выливаем 3 оставшихся пинта от предыдущего перелива в 5, снова набираем 8 и доливаем из него в 5
и в итоге в 8 останется 6 пинт
4)
Т.к мы работаем в 8 разрядности, смотрим чтобы в двоичном числе было 8 элеентов, если их меньше то добавляем нули впереди(слева)
1)
Для получения обратного кода просто меняем 1 на 0, а 0 на 1
<span>00100110=11011001
</span>2)
Для получение дополнительного кода сначала находим обратный код
<span>00100101=11011010
</span>Затем к обратному коду прибавляем 1
11011010+1=11011011
Нужно умножить стороны треугольника
Кнопка Ж делает текст жирным